Changeset 119 for trunk/libf/dyn3d

Timestamp:

May 17, 2011, 10:56:57 AM (14 years ago)

Author:

slebonnois

Message:

Sebastien Lebonnois: apres validation des versions Venus et Titan,
correction d'un certain nombre de bugs.

Location:

trunk/libf/dyn3d

Files:

• conf_gcm.F (modified) (3 diffs)
• leapfrog.F (modified) (2 diffs)
• logic.h (modified) (1 diff)

trunk/libf/dyn3d/conf_gcm.F

@@ -376 +376 @@
        iphysiq = 5
        CALL getin('iphysiq', iphysiq)
+
+!Config  Key  = iflag_trac
+!Config  Desc = traceurs presents ou non
+!Config  Def  = 1
+!Config  Help = Permet de faire tourner le modele sans traceurs
+!Config         
+       iflag_trac = 1 
+       CALL getin('iflag_trac',iflag_trac)
 
 !Config  Key  = ip_ebil_dyn
@@ -657 +665 @@
       write(lunout,*)' iflag_phys = ', iflag_phys
       write(lunout,*)' iphysiq = ', iphysiq
+      write(lunout,*)' iflag_trac = ', iflag_trac
       write(lunout,*)' clonn = ', clonn 
       write(lunout,*)' clatt = ', clatt
@@ -894 +903 @@
       write(lunout,*)' iflag_phys = ', iflag_phys
       write(lunout,*)' iphysiq = ', iphysiq
+      write(lunout,*)' iflag_trac = ', iflag_trac
       write(lunout,*)' clon = ', clon
       write(lunout,*)' clat = ', clat

trunk/libf/dyn3d/leapfrog.F

@@ -448 +448 @@
          IF (first) THEN
 #include "ini_paramLMDZ_dyn.h"
+          first=.false.
          ENDIF
 c
@@ -863 +864 @@
       END IF ! of IF(.not.purmats)
 
-      first=.false.
-
       STOP
       END

trunk/libf/dyn3d/logic.h

@@ -15 +15 @@
      & apdiss,apdelq,saison,ecripar,fxyhypb,ysinus                      &
      &  ,read_start,ok_guide,ok_strato,ok_gradsfile                     &
-     &  ,ok_limit,ok_etat0,iflag_trac
+     &  ,ok_limit,ok_etat0
 
-      INTEGER iflag_phys
+      INTEGER iflag_phys,iflag_trac
 !-----------------------------------------------------------------------