Changeset 658

Timestamp:

Jul 4, 2005, 11:53:30 AM (19 years ago)

Author:

lmdzadmin

Message:

frequence de sortie des traceurs (en jours) choisie dans physiq.def IM
MAF

Location:

LMDZ4/trunk/libf/phylmd

Files:

• conf_phys.F90 (modified) (1 diff)
• physiq.F (modified) (2 diffs)
• phytrac.F (modified) (4 diffs)

LMDZ4/trunk/libf/phylmd/conf_phys.F90

@@ -688 +688 @@
 !Config Key  = ecrit_tra
 !Config Desc =
-!Config Def  = NINT(86400./dtime * ecritphy) !tous les pas de temps physiques
+!Config Def  = NINT(86400./dtime * ecritphy) !tous les ecritphy jours
 !Config Help =
 !
 ! ecrit_tra = NINT(86400./dtime * ecritphy)
-  ecrit_tra = NINT(86400.* ecritphy)
+  ecrit_tra = NINT(ecritphy)
   call getin('ecrit_tra',ecrit_tra)
 !

LMDZ4/trunk/libf/phylmd/physiq.F

@@ -1456 +1456 @@
          ecrit_day = NINT(ecrit_day/dtime)
          ecrit_mth = NINT(ecrit_mth/dtime)
-         ecrit_tra = NINT(ecrit_tra/dtime)
+         ecrit_tra = NINT(86400.*ecrit_tra/dtime)
          ecrit_reg = NINT(ecrit_reg/dtime)
 cIM 230505 END
@@ -2747 +2747 @@
 c====================================================================
 C
-      call phytrac (iflag_con,
-     I                   rnpb,
+      call phytrac (     rnpb,
      I                   itap, 
      I                   julien, 

LMDZ4/trunk/libf/phylmd/phytrac.F

@@ -4 +4 @@
 c
 c
-      SUBROUTINE phytrac (iflag_con,
-     I                    rnpb,
+      SUBROUTINE phytrac (rnpb,
      I                    nstep,
      I                    julien,
@@ -105 +104 @@
 #include "dimphy.h"
 #include "indicesol.h"
+#include "clesphys.h"
 #include "temps.h"
 #include "paramet.h"
@@ -266 +266 @@
 C Variables liees a l'ecriture de la bande histoire : phytrac.nc
 c
-      INTEGER ecrit_tra
-      SAVE ecrit_tra   
+c      INTEGER ecrit_tra
+c      SAVE ecrit_tra   
       logical ok_sync
       parameter (ok_sync = .true.)
@@ -387 +387 @@
          if (debutphy) then
 
-          ecrit_tra = NINT(86400./pdtphys *ecritphy) 
+c          ecrit_tra = NINT(86400./pdtphys *ecritphy) 
           print*,'dans phytrac ',pdtphys,ecritphy,ecrit_tra