Changeset 119 for trunk/libf/dyn3dpar


Ignore:
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:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/libf/dyn3dpar/conf_gcm.F

    r108 r119  
    388388       iphysiq = 5
    389389       CALL getin('iphysiq', iphysiq)
     390
     391!Config  Key  = iflag_trac
     392!Config  Desc = traceurs presents ou non
     393!Config  Def  = 1
     394!Config  Help = Permet de faire tourner le modele sans traceurs
     395!Config         
     396       iflag_trac = 1
     397       CALL getin('iflag_trac',iflag_trac)
    390398
    391399!Config  Key  = ip_ebil_dyn
     
    679687      write(lunout,*)' iflag_phys = ', iflag_phys
    680688      write(lunout,*)' iphysiq = ', iphysiq
     689      write(lunout,*)' iflag_trac = ', iflag_trac
    681690      write(lunout,*)' clonn = ', clonn
    682691      write(lunout,*)' clatt = ', clatt
     
    947956      write(lunout,*)' iflag_phys = ', iflag_phys
    948957      write(lunout,*)' iphysiq = ', iphysiq
     958      write(lunout,*)' iflag_trac = ', iflag_trac
    949959      write(lunout,*)' clon = ', clon
    950960      write(lunout,*)' clat = ', clat
  • trunk/libf/dyn3dpar/logic.h

    r101 r119  
    1515     & apdiss,apdelq,saison,ecripar,fxyhypb,ysinus                      &
    1616     &  ,read_start,ok_guide,ok_strato,ok_gradsfile                     &
    17      &  ,ok_limit,ok_etat0,iflag_trac
     17     &  ,ok_limit,ok_etat0
    1818
    19       INTEGER iflag_phys
     19      INTEGER iflag_phys,iflag_trac
    2020!$OMP THREADPRIVATE(/logic/)
    2121!-----------------------------------------------------------------------
Note: See TracChangeset for help on using the changeset viewer.