Changeset 3076 for trunk/LMDZ.COMMON/libf/evolution/glaciers_mod.F90

Timestamp:

Oct 6, 2023, 5:32:11 PM (14 months ago)

Author:

jbclement

Message:

PEM:
Big cleaning/improvements of the PEM:

• Conversion of "abort_pem.F" and "soil_settings_PEM.F" into Fortran 90;
• Transformation of every PEM subroutines into module;
• Rewriting of many subroutines with modern Fortran syntax;
• Correction of a bug in "pem.F90" when calling 'recomp_tend_co2_slope'. The arguments were given in disorder and emissivity was missing;
• Update of "launch_pem.sh" in deftank.

JBC

File:

• trunk/LMDZ.COMMON/libf/evolution/glaciers_mod.F90 (modified) (3 diffs)

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

@@ -26 +26 @@
 !!!
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-
 
 IMPLICIT NONE
@@ -105 +104 @@
 subroutine compute_hmaxglaciers(ngrid,nslope,iflat,def_slope_mean,Tice,name_ice,hmax)
 
-     USE comconst_mod, ONLY: pi,g
+use comconst_mod,  only: pi,g
+use abort_pem_mod, only: abort_pem
 
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
@@ -181 +181 @@
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
-      USE comconst_mod, ONLY: pi
+use comconst_mod,  only: pi
+use abort_pem_mod, only: abort_pem