Changeset 1593 for trunk/LMDZ.COMMON/libf/dyn3dpar

Timestamp:

Sep 9, 2016, 4:04:54 PM (8 years ago)

Author:

emillour

Message:

Common dynamics:

• some cleanup around unused or unecessary parameters in the dynamics (ecritphy, grireg and physic) to harmonize with LMDZ5 (Earth dyn core).
• associated changes in LMDZ.MARS and LMDZ.GENERIC

EM

Location:

trunk/LMDZ.COMMON/libf/dyn3dpar

Files:

• gcm.F (modified) (1 diff)
• logic_mod.F90 (modified) (2 diffs)

trunk/LMDZ.COMMON/libf/dyn3dpar/gcm.F

@@ -578 +578 @@
 c$OMP1 COPYIN(purmats,forward,leapf,apphys,statcl,conser,apdiss,apdelq)
 c$OMP1 COPYIN(saison,ecripar,fxyhypb,ysinus,read_start,ok_guide)
-c$OMP1 COPYIN(ok_strato,tidal,ok_gradsfile,ok_limit,ok_etat0,physic)
-c$OMP1 COPYIN(grireg,iflag_phys,iflag_trac)
+c$OMP1 COPYIN(ok_strato,tidal,ok_gradsfile,ok_limit,ok_etat0)
+c$OMP1 COPYIN(iflag_phys,iflag_trac)
 
 

trunk/LMDZ.COMMON/libf/dyn3dpar/logic_mod.F90

@@ -6 +6 @@
      & apdiss,apdelq,saison,ecripar,fxyhypb,ysinus                      &
      &  ,read_start,ok_guide,ok_strato,tidal,ok_gradsfile               &
-     &  ,ok_limit,ok_etat0,physic,grireg
+     &  ,ok_limit,ok_etat0
       logical hybrid ! vertical coordinate is hybrid if true (sigma otherwise)
                      ! (only used if disvert_type==2)
@@ -16 +16 @@
   !$OMP     apdiss,apdelq,saison,ecripar,fxyhypb,ysinus,              &
   !$OMP     read_start,ok_guide,ok_strato,tidal,ok_gradsfile,         &
-  !$OMP     ok_limit,ok_etat0,physic,grireg)
+  !$OMP     ok_limit,ok_etat0)
 !$OMP THREADPRIVATE(iflag_phys,iflag_trac)