Changeset 511 for LMDZ.3.3/branches/rel-LF/libf/phylmd/ini_histins.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_histins.h
r506 r511 1 1 IF (ok_instan) THEN 2 2 c 3 IF(region.EQ.'3d') THEN4 3 zsto = dtime * ecrit_ins 5 4 zout = dtime * ecrit_ins 6 ELSEIF(REGION.eq.'1d') THEN7 zsto = dtime8 c zout = dtime9 zout = dtime *4.10 ENDIF11 5 c 12 6 idayref = day_ref … … 23 17 CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlat,zx_lat) 24 18 CALL histbeg("histins", iim,zx_lon(:,1), jjmp1,zx_lat(1,:), 25 c071103 26 c . 1,iim,1,jjmp1, 27 . imin_debut,nbpti, 28 . jmin_debut,nbptj, 29 c071103 30 . itau_phy, zjulian, dtime, 19 . 1,iim,1,jjmp1, itau_phy, zjulian, dtime, 31 20 . nhori, nid_ins) 32 21 write(*,*)'Inst ', itau_phy, zjulian
Note: See TracChangeset
for help on using the changeset viewer.