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

Timestamp:

Oct 6, 2006, 1:06:22 PM (18 years ago)

Author:

lmdzadmin

Message:

On passe a des ecrit_ins, ecrit_day, etc en nombre de jours (REAL)
On lit frequence ecriture traceurs ecrit_trac dans physiq.def
Correction petits pbs ini_histrac.h
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
-      zsto = pdtphys
-      zout = pdtphys * FLOAT(ecrit_tra)
       itau_w = itau_phy + nstep
-
       
-      i = NINT(zout/zsto)
       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)