Changeset 684 for LMDZ4/trunk/libf/phylmd/write_histrac.h

Timestamp:

Apr 4, 2006, 5:00:40 PM (19 years ago)

Author:

lmdzadmin

Message:

Ajout nouveaux flags (ip_ebil_phy, ok_slab_sicOBS) ds physiq.def +
Lecture freq. ecriture en nombre de jours
IM

File:

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

LMDZ4/trunk/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)