Changeset 119 for trunk/libf/dyn3dpar

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/dyn3dpar

Files:

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

trunk/libf/dyn3dpar/conf_gcm.F

@@ -388 +388 @@
        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
@@ -679 +687 @@
       write(lunout,*)' iflag_phys = ', iflag_phys
       write(lunout,*)' iphysiq = ', iphysiq
+      write(lunout,*)' iflag_trac = ', iflag_trac
       write(lunout,*)' clonn = ', clonn 
       write(lunout,*)' clatt = ', clatt
@@ -947 +956 @@
       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/dyn3dpar/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
 !$OMP THREADPRIVATE(/logic/)
 !-----------------------------------------------------------------------