Changeset 3605 for LMDZ6/branches/Ocean_skin/libf/phylmd/undefSTD.F90
- 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/undefSTD.F90
r2346 r3605 43 43 ! PARAMETER(klevSTD=17) 44 44 INTEGER itap 45 ! REAL dtime46 45 47 46 ! variables locales … … 67 66 68 67 69 ! calcul variables tous les freq_calNMC(n)/ dtimepas de temps68 ! calcul variables tous les freq_calNMC(n)/phys_tstep pas de temps 70 69 ! de la physique 71 70 72 IF (mod(itap,nint(freq_calnmc(n)/ dtime))==0) THEN71 IF (mod(itap,nint(freq_calnmc(n)/phys_tstep))==0) THEN 73 72 DO k = 1, nlevstd 74 73 DO i = 1, klon … … 103 102 END DO !k 104 103 105 END IF !MOD(itap,NINT(freq_calNMC(n)/ dtime)).EQ.0104 END IF !MOD(itap,NINT(freq_calNMC(n)/phys_tstep)).EQ.0 106 105 107 106 END DO !n
Note: See TracChangeset
for help on using the changeset viewer.