Changeset 1057

Timestamp:

01/28/21 15:46:20 (3 years ago)

Author:

millour

Message:

Add a "plugin" option to disvert. Only the interface to the plugin is present inthe realted disvert_plugin.f90; a placeholder for a user-provided routine set byan external driver.
EM

Location:

codes/icosagcm/trunk/src/vertical

Files:

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

codes/icosagcm/trunk/src/vertical/disvert.f90

@@ -30 +30 @@
   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 disvert_plugin_mod, ONLY: ap_plugin=>ap, bp_plugin=>bp, presnivs_plugin=>presnivs, init_disvert_plugin=>init_disvert
   USE icosa
   USE mpipara
@@ -87 +88 @@
         bp=>bp_apbp
         presnivs=>presnivs_apbp
+        
+      CASE('plugin')
+        
+        CALL init_disvert_plugin
+        ap=>ap_plugin
+        bp=>bp_plugin
+        presnivs=>presnivs_plugin
         
       CASE ('ncar')