Changeset 4071 for trunk/LMDZ.COMMON/libf/evolution/info.F90

Timestamp:

Feb 16, 2026, 10:28:56 AM (12 days ago)

Author:

jbclement

Message:

PEM:

• Making the computation of ice tendencies more reliable by doing it after 'read_startpem' to know exactly where perennial ice is (no matter if there is a "startpem.nc" or not). Moreover, when there is no "startpem.nc", location of perennial ice depends now on 'watercaptag' and on huge amount of frost. This prevents negative ice tendency while there is no ice which can happen with weird PCM inputs (i.e. 'watercaptag' = F & 'watercap' /= 0 & no "stratpem.nc").
• Few small safeguards throughout the code.

JBC

File:

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

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

@@ -113 +113 @@
 ! ARGUMENTS
 ! ---------
-integer(di), intent(in) :: stopPEM    ! Reason to stop
-real(dp),    intent(in) :: n_yr_run ! # of years
-real(dp),    intent(in) :: n_yr_sim ! Current simulated year
+integer(di), intent(in) :: stopPEM     ! Reason to stop
+real(dp),    intent(in) :: n_yr_run    ! # of years
+real(dp),    intent(in) :: n_yr_sim    ! Current simulated year
 real(dp),    intent(in) :: nmax_yr_sim ! Maximum number of years to be simulated