Changeset 4076 for trunk/LMDZ.COMMON/libf/evolution/display.F90

Timestamp:

Feb 18, 2026, 9:50:57 AM (9 days ago)

Author:

jbclement

Message:

PEM:
Fallback for 128-bit integers since this type is not supported by Intel Fortran.
JBC

File:

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

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

@@ -91 +91 @@
 
 !=======================================================================
-SUBROUTINE print_end(n_yr_run,dur_secs,r_plnt2earth_yr,pem_ini_date,n_yr_sim)
+SUBROUTINE print_end(i_pem_run,n_yr_run,n_yr_sim,dur_secs,pem_ini_date,r_plnt2earth_yr)
 !-----------------------------------------------------------------------
 ! NAME
@@ -108 +108 @@
 ! DEPENDENCIES
 ! ------------
-use utility,         only: format_duration, int2str
-use workflow_status, only: i_pem_run
+use utility, only: format_duration, int2str
 
 ! DECLARATION
@@ -117 +116 @@
 ! ARGUMENTS
 ! ---------
-real(dp), intent(in) :: r_plnt2earth_yr, pem_ini_date, n_yr_sim, n_yr_run, dur_secs
+real(dp),    intent(in) :: n_yr_run, n_yr_sim, dur_secs, pem_ini_date, r_plnt2earth_yr
+integer(di), intent(in) :: i_pem_run
 
 ! CODE