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

Timestamp:

May 3, 2019, 1:10:27 PM (6 years ago)

Author:

slebonnois

Message:

SL, Venus: new keys for flexibility cp0/cp(T) and Held-Suarez type physics

File:

• trunk/LMDZ.COMMON/libf/dyn3dpar/conf_gcm.F90 (modified) (2 diffs)

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

@@ -498 +498 @@
   iphysiq = 5
   CALL getin('iphysiq', iphysiq)
+
+!Config  Key  =  cpofT
+!Config  Desc = dependence of Cp on T
+!Config  Def  = False
+!Config  Help = dependence of Cp on T (true or false)
+  cpofT = .False.
+  if (planet_type.eq."venus") then
+   cpofT = .True.
+  endif
+  CALL getin('cpofT', cpofT)
 
 !Config  Key  = iflag_trac
@@ -990 +1000 @@
       write(lunout,*)' iflag_phys = ', iflag_phys
       write(lunout,*)' iphysiq = ', iphysiq
+      write(lunout,*)' cpofT = ', cpofT
       write(lunout,*)' iflag_trac = ', iflag_trac
       write(lunout,*)' iapp_tracvl = ', iapp_tracvl