Changeset 658 for LMDZ4/trunk/libf/phylmd/phytrac.F

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

File:

• LMDZ4/trunk/libf/phylmd/phytrac.F (modified) (4 diffs)

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