Changeset 116 for codes/icosagcm/trunk

Timestamp:

08/09/12 19:29:22 (12 years ago)

Author:

ymipsl

Message:

Add dcmip 2.0-0 vertical discretisation

YM

Location:

codes/icosagcm/trunk/src

Files:

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

codes/icosagcm/trunk/src/disvert.f90

@@ -12 +12 @@
   USE disvert_ncarl30_mod, ONLY: ap_ncarl30=>ap, bp_ncarl30=>bp, presnivs_ncarl30=>presnivs, init_disvert_ncarl30=>init_disvert
   USE disvert_dcmip31_mod, ONLY: ap_dcmip31=>ap, bp_dcmip31=>bp, presnivs_dcmip31=>presnivs, init_disvert_dcmip31=>init_disvert
+  USE disvert_dcmip200_mod, ONLY: ap_dcmip200=>ap, bp_dcmip200=>bp, presnivs_dcmip200=>presnivs, init_disvert_dcmip200=>init_disvert
   USE icosa
   IMPLICIT NONE
@@ -39 +40 @@
         bp=>bp_dcmip31
         presnivs=>presnivs_dcmip31
+
+      CASE ('dcmip200')
+
+        CALL init_disvert_dcmip200
+        ap=>ap_dcmip200
+        bp=>bp_dcmip200
+        presnivs=>presnivs_dcmip200
 
       CASE ('ncarl30')