Changeset 33

Timestamp:

07/27/12 16:08:04 (12 years ago)

Author:

ymipsl

Message:

Add NCAR 30 level stretched discretisation

YM

Location:

codes/icosagcm/trunk/src

Files:

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

codes/icosagcm/trunk/src/disvert.f90

@@ -10 +10 @@
   USE disvert_std_mod, ONLY: ap_std=>ap, bp_std=>bp, presnivs_std=>presnivs, init_disvert_std=>init_disvert
   USE disvert_ncar_mod, ONLY: ap_ncar=>ap, bp_ncar=>bp, presnivs_ncar=>presnivs, init_disvert_ncar=>init_disvert
+  USE disvert_ncarl30_mod, ONLY: ap_ncarl30=>ap, bp_ncarl30=>bp, presnivs_ncarl30=>presnivs, init_disvert_ncarl30=>init_disvert
   USE icosa
   IMPLICIT NONE
@@ -30 +31 @@
         bp=>bp_ncar
         presnivs=>presnivs_ncar
+
+      CASE ('ncarl30')
+
+        CALL init_disvert_ncar
+        ap=>ap_ncarl30
+        bp=>bp_ncarl30
+        presnivs=>presnivs_ncarl30
         
       CASE default
-        PRINT*,'Bad selector for variable disvert : <', TRIM(disvert_type),"> options are <std>, <ncar>" 
+        PRINT*,'Bad selector for variable disvert : <', TRIM(disvert_type),"> options are <std>, <ncar>, <ncarl30>" 
         STOP