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

Timestamp:

Jan 28, 2025, 5:16:15 PM (2 days ago)

Author:

jbclement

Message:

PEM:

• Bug correction about the pressure/teta reconstruction for the PCM (mismatch between the physical and dynamical grid).
• Improvement of messages giving info about the PEM workflow in the terminal.

JBC

File:

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

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

@@ -53 +53 @@
 real, dimension(ngrid,nslope) :: hmax  ! Grid points x Slope field: maximum thickness for co2  glacier before flow
 
-write(*,*) "Flow of CO2 glaciers"
+write(*,*) "> Flow of CO2 glaciers"
 call computeTcondCO2(timelen,ngrid,nslope,vmr_co2_PEM,ps_PCM,ps_avg_global_ini,ps_avg_global,Tcond)
 call compute_hmaxglaciers(ngrid,nslope,iflat,def_slope_mean,Tcond,"co2",hmax)
@@ -93 +93 @@
 real, dimension(ngrid,nslope) :: hmax ! Grid points x Slope field: maximum thickness for co2  glacier before flow
 
-write(*,*) "Flow of H2O glaciers"
+write(*,*) "> Flow of H2O glaciers"
 call compute_hmaxglaciers(ngrid,nslope,iflat,def_slope_mean,Tice,"h2o",hmax)
 call transfer_ice_duringflow(ngrid,nslope,iflat,subslope_dist,def_slope_mean,hmax,Tice,h2oice,flag_h2oflow)