Changeset 3527 for trunk/LMDZ.COMMON/libf/evolution/pem.F90

Timestamp:

Nov 20, 2024, 3:53:19 PM (25 hours ago)

Author:

jbclement

Message:

PEM:

• Removing redundant Norbert Schorghofer's subroutines/parameters (follow-up of r3526);
• Making all Norbert Schorghofer's subroutines with modern explicit interface via modules;
• Cleaning of "glaciers_mod.F90";
• Optimization for the computation of ice density according to temperature by using a function.

JBC

File:

• trunk/LMDZ.COMMON/libf/evolution/pem.F90 (modified) (1 diff)

trunk/LMDZ.COMMON/libf/evolution/pem.F90

@@ -71 +71 @@
 use co2condens_mod,             only: CO2cond_ps
 use layering_mod,               only: d_dust, ptrarray, stratum, layering, ini_layering, del_layering, make_layering, get_nb_str_max, nb_str_max, layering_algo
+use dyn_ss_ice_m_mod,           only: dyn_ss_ice_m
 
 #ifndef CPP_STD