Changeset 2181 for trunk/LMDZ.COMMON/libf/dyn3d_common

Timestamp:

Nov 20, 2019, 10:48:02 AM (5 years ago)

Author:

emillour

Message:

Common dyn core:
Enforce using dissip_fac_mid and dissip_fac_up parameters read from .def files to be used by inidissip.
EM

File:

• trunk/LMDZ.COMMON/libf/dyn3d_common/inidissip.F90 (modified) (1 diff)

trunk/LMDZ.COMMON/libf/dyn3d_common/inidissip.F90

@@ -74 +74 @@
       startalt=70. ! altitude (in km) for the transition from middle to upper atm.
       delta=30.! Size (in km) of the transition region between middle/upper atm.
-
+      
+      if (ok_strato) then !overwrite defaults above with values from def file
+        fac_mid=dissip_fac_mid
+        fac_up=dissip_fac_up
+        delta=dissip_deltaz
+      endif
+      
       middle=startalt+delta/2
       write(lunout,*)"inidissip: multiplicative factors in altitude:", &