Changeset 3605 for LMDZ6/branches/Ocean_skin/libf/phylmd/calcul_divers.h
- Timestamp:
- Nov 21, 2019, 4:43:45 PM (4 years ago)
- Location:
- LMDZ6/branches/Ocean_skin
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Ocean_skin
-
LMDZ6/branches/Ocean_skin/libf/phylmd/calcul_divers.h
r2825 r3605 1 1 ! 2 ! $Header$ 2 ! $Id$ 3 ! 3 4 ! 4 5 ! Initialisations diverses au tout debut … … 14 15 15 16 ! Calcul fin de journee : total_rain, nday_rain 16 IF(MOD(itap,NINT(un_jour/ dtime)).EQ.0) THEN17 IF(MOD(itap,NINT(un_jour/phys_tstep)).EQ.0) THEN 17 18 ! print*,'calcul nday_rain itap ',itap 18 19 DO i = 1, klon … … 23 24 24 25 ! Initialisation fin de mois 25 IF(MOD(itap-itapm1,NINT(mth_len*un_jour/ dtime)).EQ.0) THEN26 itapm1=itapm1+NINT(mth_len*un_jour/ dtime)26 IF(MOD(itap-itapm1,NINT(mth_len*un_jour/phys_tstep)).EQ.0) THEN 27 itapm1=itapm1+NINT(mth_len*un_jour/phys_tstep) 27 28 ! print*,'initialisation itapm1 ',itapm1 28 29 ENDIF … … 35 36 t2m_max_mon=0. 36 37 ENDIF 37 IF(MOD(itap,NINT(un_jour/ dtime)).EQ.1) THEN38 IF(MOD(itap,NINT(un_jour/phys_tstep)).EQ.1) THEN 38 39 zt2m_min_mon=zt2m 39 40 zt2m_max_mon=zt2m … … 45 46 ENDDO 46 47 !fin de journee 47 IF(MOD(itap,NINT(un_jour/ dtime)).EQ.0) THEN48 IF(MOD(itap,NINT(un_jour/phys_tstep)).EQ.0) THEN 48 49 t2m_min_mon=t2m_min_mon+zt2m_min_mon 49 50 t2m_max_mon=t2m_max_mon+zt2m_max_mon
Note: See TracChangeset
for help on using the changeset viewer.