Go to the source code of this file.
|
!$Id klon | IF (pctsrf(i, is_ter).GT.0.) THEN paire_ter(i) |
|
!$Id klon initialisation mois suivants day_rain itap ENDIF!Calcul fin de nday_rain | IF (MOD(itap, NINT(un_jour/dtime)).EQ.0) THEN!print * |
|
!$Id klon initialisation mois suivants day_rain itap ENDIF!Calcul fin de nday_rain calcul nday_rain itap DO klon | total_rain (i) |
|
!$Id klon initialisation mois suivants day_rain itap ENDIF!Calcul fin de nday_rain calcul nday_rain itap DO klon initialisation itapm1 ENDIF!calcul temperatures minimale et maximale moyennees sur le mois!initialisation debut de mois ou de journee pour les fichiers mensuels | IF (itap.EQ.itapm1+1) THEN t2m_min_mon=0.t2m_max_mon=0.ENDIF IF(MOD(itap |
|
!$Id klon initialisation mois suivants day_rain itap ENDIF!Calcul fin de nday_rain calcul nday_rain itap DO klon initialisation itapm1 ENDIF!calcul temperatures minimale et maximale moyennees sur le mois!initialisation debut de mois ou de journee pour les fichiers mensuels | NINT (un_jour/dtime)).EQ.1) THEN zt2m_min_mon |
|
|
!$Id | __pad11__ |
|
!$Id klon initialisation mois suivants day_rain | itap |
|
!$Id klon initialisation mois suivants day_rain itap ENDIF!Calcul fin de | journee |
|
!$Id klon initialisation mois suivants day_rain itap ENDIF!Calcul fin de nday_rain calcul nday_rain itap DO | i = 1 |
|
!$Id klon initialisation mois suivants day_rain itap ENDIF!Calcul fin de nday_rain calcul nday_rain itap DO klon initialisation | itapm1 |
|
! $Id klon IF |
( |
pctsrf(i, is_ter).GT. |
0. | ) |
|
! $Id klon initialisation mois suivants day_rain itap ENDIF ! Calcul fin de nday_rain IF |
( |
MOD(itap, NINT(un_jour/dtime)).EQ. |
0 | ) |
|
! $Id klon initialisation mois suivants day_rain itap ENDIF ! Calcul fin de nday_rain calcul nday_rain itap DO klon initialisation itapm1 ENDIF ! calcul temperatures minimale et maximale moyennees sur le mois !initialisation debut de mois ou de journee pour les fichiers mensuels IF |
( |
itap.EQ.itapm1+ |
1 | ) |
|
|
pure virtual |
! $Id klon initialisation mois suivants day_rain itap ENDIF ! Calcul fin de nday_rain calcul nday_rain itap DO klon initialisation itapm1 ENDIF ! calcul temperatures minimale et maximale moyennees sur le mois !initialisation debut de mois ou de journee pour les fichiers mensuels NINT |
( |
un_jour/ |
dtime | ) |
|
! $Id klon initialisation mois suivants day_rain itap ENDIF ! Calcul fin de nday_rain calcul nday_rain itap DO klon total_rain |
( |
i |
| ) |
|
!$Id klon initialisation mois suivants day_rain itap ENDIF!Calcul fin de nday_rain calcul nday_rain itap |
! $Id klon initialisation mois suivants day_rain itap ENDIF ! Calcul fin de nday_rain calcul nday_rain itap DO klon initialisation itapm1 |
! $Id klon initialisation mois suivants day_rain itap ENDIF ! Calcul fin de journee |