Changeset 723 for LMDZ4/branches/LMDZ4_V2_patch/libf/phylmd/physiq.F

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/physiq.F (modified) (5 diffs)

LMDZ4/branches/LMDZ4_V2_patch/libf/phylmd/physiq.F

@@ -38 +38 @@
 c   CLEFS CPP POUR LES IO
 c   =====================
+#define histins
 #define histhf
 #define histday
 #define histmth
-#define histins
 #define histISCCP
 #define histREGDYN
@@ -456 +456 @@
       INTEGER nbapp_isccp,isccppas
 
-#undef histISCCP
-#define histISCCP
-c     data ok_isccp,ecrit_isccp/.true.,0.125/      
-c     data ok_isccp,ecrit_isccp/.true.,1./      
-cIM 190504     data ok_isccp/.true./      
-cIM 190504 #else
-cIM 190504     data ok_isccp/.false./
-cIM 190504 #endif
-
 c sorties statistiques regime dynamique
 c     logical ok_regdyn
@@ -471 +462 @@
 c     save ok_regdyn, ecrit_regdyn, nid_regdyn
       save nid_regdyn
-
-#undef histREGDYN
-#define histREGDYN
-cIM 190504 #ifdef histREGDYN
-c     data ok_regdyn,ecrit_regdyn/.true.,0.125/
-c     data ok_regdyn,ecrit_regdyn/.true.,1./
-cIM 190504    data ok_regdyn/.true./
-cIM 190504 #else
-cIM 190504   data ok_regdyn/.false./
-cIM 190504 #endif 
 
       REAL zx_tau(kmaxm1), zx_pc(lmaxm1), zx_o500(iwmax)
@@ -1520 +1501 @@
 #endif
 
-c#undef histmthNMC
-c#define histmthNMC
 #ifdef histmthNMC
 #include "ini_histmthNMC.h"
@@ -2747 +2726 @@
 c====================================================================
 C
-      call phytrac (iflag_con,
-     I                   rnpb,
+      call phytrac (rnpb,
      I                   itap, 
      I                   julien,