Changeset 3922

Timestamp:

Mar 30, 2016, 1:48:05 PM (9 years ago)

Author:

ymipsl

Message:

Add vertical discretisation for stratosphere ( hybrid sigma level)
=> disvert = 'strato'

YM

Location:

dynamico_lmdz/aquaplanet/ICOSAGCM/src

Files:

• disvert.f90 (modified) (2 diffs)
• disvert_strato.f90 (added)

dynamico_lmdz/aquaplanet/ICOSAGCM/src/disvert.f90

@@ -23 +23 @@
   SUBROUTINE init_disvert
   USE disvert_std_mod, ONLY: ap_std=>ap, bp_std=>bp, presnivs_std=>presnivs, init_disvert_std=>init_disvert
+  USE disvert_strato_mod, ONLY: ap_strato=>ap, bp_strato=>bp, presnivs_strato=>presnivs, init_disvert_strato=>init_disvert
   USE disvert_apbp_mod, ONLY: ap_apbp=>ap, bp_apbp=>bp, presnivs_apbp=>presnivs, init_disvert_apbp=>init_disvert
   USE disvert_ncar_mod, ONLY: ap_ncar=>ap, bp_ncar=>bp, presnivs_ncar=>presnivs, init_disvert_ncar=>init_disvert
@@ -64 +65 @@
         bp=>bp_std
         presnivs=>presnivs_std
+
+      CASE('strato')
+    
+        CALL init_disvert_strato
+        ap=>ap_strato
+        bp=>bp_strato
+        presnivs=>presnivs_strato
       
       CASE('read_apbp')