Changeset 740 for LMDZ4/branches/LMDZ4_V2_patch/libf/phylmd/write_histrac.h

Timestamp:

Dec 8, 2006, 12:45:43 PM (18 years ago)

Author:

lmdzadmin

Message:

Correction bogues: les ecrit_ sont des REALs lus dans conf_phys.F90 en
nombre de jours sauf pour ecrit_ins et ecrit_tra en secondes!
Les ecrit_ sont initialises dans conf_phys.F90 et peuvent etre modifies dans
physiq.def.
IM

File:

• LMDZ4/branches/LMDZ4_V2_patch/libf/phylmd/write_histrac.h (modified) (1 diff)

LMDZ4/branches/LMDZ4_V2_patch/libf/phylmd/write_histrac.h

@@ -6 +6 @@
       ndex3d = 0
 c
-      itau_w = itau_phy + nstep
-      
+cIM itau_phy n'est pas defini dans phytrac   itau_w = itau_phy + nstep
+      itau_w = nstep
+c     print*,'write_histrac: itau_w itau_phy nstep',itau_w,itau_phy,
+c    $ nstep
+c      
       CALL gr_fi_ecrit(1,klon,iim,jjm+1,pphis,zx_tmp_2d)
       CALL histwrite(nid_tra,"phis",itau_w,zx_tmp_2d,iim*(jjm+1),ndex2d)