Changeset 2452 for trunk/ICOSA_LMDZ

Timestamp:

Jan 28, 2021, 3:59:54 PM (4 years ago)

Author:

emillour

Message:

Dynamico interface to LMDZ physics packages:
Add disvert_icosa_lmdz, which computes ap(),bp() and presnivs() idefining model vertical levels, as done by LMDZ (using input file z2sig.def and associated 'hybrid' and 'pa' parameters).
This is meant to be iused as a "plugin" by icosagcm via the option "disvert=plugin" that was introduced in rev 1057 of ICOSAGCM.
EM

Location:

trunk/ICOSA_LMDZ

Files:

• bld.cfg (modified) (1 diff)
• src/disvert_icosa_lmdz.f90 (added)
• src/icosa_lmdz.f90 (modified) (1 diff)

trunk/ICOSA_LMDZ/bld.cfg

@@ -75 +75 @@
 bld::excl_dep        use::write_field_mod
 bld::excl_dep        use::checksum_mod
+## addition for disvert_icosa_lmdz
+bld::excl_dep        use::prec
+bld::excl_dep        use::getin_mod
+bld::excl_dep        use::grid_param
+bld::excl_dep        use::earth_const
+bld::excl_dep        use::disvert_plugin_mod
+bld::excl_dep        use::abort_mod
+bld::excl_dep        use::free_unit_mod
+bld::excl_dep        use::transfert_omp_mod
 ## additions for Venus:
 bld::excl_dep        use::cpdet_phy_mod

trunk/ICOSA_LMDZ/src/icosa_lmdz.f90

@@ -1 +1 @@
 PROGRAM icosa_lmdz
-  USE icosa_init_mod
+  USE icosa_init_mod, ONLY: icosa_init
+  USE disvert_plugin_mod, ONLY: disvert_plugin
+  USE disvert_icosa_lmdz_mod, ONLY: disvert_icosa_lmdz
+
+  ! set up plugins
+  disvert_plugin => disvert_icosa_lmdz
 
   CALL icosa_init