Changeset 511 for LMDZ.3.3/branches/rel-LF/libf/phylmd/ini_histmthNMC.h
- Timestamp:
- Mar 24, 2004, 11:41:29 AM (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ.3.3/branches/rel-LF/libf/phylmd/ini_histmthNMC.h
r508 r511 1 c IF (ok_mensuelNMC) THEN2 1 IF (ok_mensuel) THEN 3 2 c 4 IF(region.EQ.'3d') THEN5 3 zsto = dtime 6 cIM 150304 BEG7 4 zout = dtime * ecrit_mth 8 c zout = dtime * REAL(NINT(86400./dtime*ecrit_hf))9 cIM 150304 END10 cIM 120304 BEG11 c zout = dtime * REAL(NINT(86400./dtime*ecrit_hf))12 c zsto = zout13 c zsto = dtime14 cIM 120304 END15 ELSEIF(region.EQ.'1d') THEN16 zsto = dtime17 c zout = dtime18 zout = dtime *4.19 ENDIF20 5 c 21 6 idayref = day_ref … … 32 17 CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlat,zx_lat) 33 18 CALL histbeg("histNMC.nc", iim,zx_lon(:,1), jjmp1,zx_lat(1,:), 34 c071103 35 c . 1,iim,1,jjmp1, 36 . imin_debut,nbpti, 37 . jmin_debut,nbptj, 38 c071103 39 . itau_phy, zjulian, dtime, 19 . 1,iim,1,jjmp1, itau_phy, zjulian, dtime, 40 20 . nhori, nid_nmc) 41 21 write(*,*)'Mensuel NMC ', itau_phy, zjulian
Note: See TracChangeset
for help on using the changeset viewer.