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

Timestamp:

Apr 4, 2006, 5:00:40 PM (18 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_histmthNMC.h (modified) (2 diffs)

LMDZ4/trunk/libf/phylmd/write_histmthNMC.h

@@ -2 +2 @@
 ! $Header$
 !
-c     IF (ok_mensuelNMC) THEN
       IF (ok_mensuel) THEN
 c
@@ -84 +83 @@
         DO i=1, klon
          IF(tnondef(i,k,3).NE.1.E+20) THEN
-          zx_tmp_fi3d(i,k) = (100.*tnondef(i,k,3))/FLOAT(ecrit_hf2mth)
+          zx_tmp_fi3d(i,k) = (100.*tnondef(i,k,3))/ecrit_hf2mth
          ELSE
           zx_tmp_fi3d(i,k) = 1.E+20