Changeset 511 for LMDZ.3.3/branches/rel-LF/libf/phylmd/ini_histhf3d.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_histhf3d.h
r510 r511 1 1 2 2 c IF (ok_hf) THEN 3 c4 IF(region.EQ.'3d') THEN5 3 c 6 4 zout = dtime * REAL(NINT(86400./dtime*ecrit_hf)) … … 9 7 PRINT*, 'La frequence de sortie instant. est de ', ecrit_hf 10 8 c 11 ELSEIF(region.EQ.'1d') THEN12 c13 c pour les champs instantannes, il faut mettre la meme valeur pour14 c zout et tsto.15 c dtime est passe par ailleurs a histbeg16 zsto = dtime17 c zout = dtime18 zout = dtime *4.19 ENDIF20 print*,'zout,zsto=',zout,zsto21 9 cIM cf LF 22 10 idayref = day_ref … … 39 27 cccIM CALL histbeg("histhf", iim,zx_lon, jjmp1,zx_lat, 40 28 CALL histbeg("histhf3d", iim,zx_lon(:,1), jjmp1,zx_lat(1,:), 41 cIM cf LF . 1,iim,1,jjmp1, 0, zjulian, dtime, 42 c071103 43 c . 1,iim,1,jjmp1, 44 . imin_debut,nbpti, 45 . jmin_debut,nbptj, 46 c071103 47 . itau_phy, zjulian, dtime, 29 . 1,iim,1,jjmp1, itau_phy, zjulian, dtime, 48 30 . nhori, nid_hf3d) 49 31
Note: See TracChangeset
for help on using the changeset viewer.