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 |