Changeset 127 for trunk/libf/dyn3dpar/logic.h

Timestamp:

May 24, 2011, 1:26:29 PM (14 years ago)

Author:

emillour

Message:

Ehouarn: suite de l'implementation de la discretisation verticale,
avec quelques mises a jour pour concorder avec la version terrestre.
-> Finalement, on met un flag "disvert_type" pour fixer la discretisation

disvert_type==1 (defaut si planet_type=="earth") pour cas terrestre
disvert_type==2 (defaut si planet_type!="earth") pour cas planeto (z2sig.def)

-> au passage, pour rester en phase avec modele terrestre on renomme

disvert_terre en disvert (le disvert "alternatif" demeure 'disvert_noterre')

File:

• trunk/libf/dyn3dpar/logic.h (modified) (3 diffs)

trunk/libf/dyn3dpar/logic.h

@@ -1 +1 @@
 !
-! $Id: logic.h 1319 2010-02-23 21:29:54Z fairhead $
+! $Id: logic.h 1520 2011-05-23 11:37:09Z emillour $
 !
 !
@@ -11 +11 @@
      &  statcl,conser,apdiss,apdelq,saison,ecripar,fxyhypb,ysinus       &
      &  ,read_start,ok_guide,ok_strato,ok_gradsfile                     &
-     &  ,ok_limit,ok_etat0,hybrid
+     &  ,ok_limit,ok_etat0,grilles_gcm_netcdf,hybrid
 
       COMMON/logici/ iflag_phys,iflag_trac
@@ -18 +18 @@
      & apdiss,apdelq,saison,ecripar,fxyhypb,ysinus                      &
      &  ,read_start,ok_guide,ok_strato,ok_gradsfile                     &
-     &  ,ok_limit,ok_etat0
-      logical hybrid ! vertcal coordinate is hybrid if true (sigma otherwise)
+     &  ,ok_limit,ok_etat0,grilles_gcm_netcdf
+      logical hybrid ! vertical coordinate is hybrid if true (sigma otherwise)
+                     ! (only used if disvert_type==2)
 
-      INTEGER iflag_phys,iflag_trac
+      integer iflag_phys,iflag_trac
 !$OMP THREADPRIVATE(/logicl/)
 !$OMP THREADPRIVATE(/logici/)