Changeset 3532 for trunk/LMDZ.COMMON/libf/evolution/info_PEM_mod.F90

Timestamp:

Dec 4, 2024, 4:04:54 PM (3 weeks ago)

Author:

jbclement

Message:

PEM:
Removing unecessary module/subroutine "interpol_TI_PEM2PCM.F90" + Few small corrections/cleanings.
JBC

File:

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

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

@@ -31 +31 @@
 logical       :: ok
 integer       :: cstat
-character(10) :: frmt
+character(50) :: info_frmt
 character(20) :: ich1, ich2, ich3, ich4, fch1, fch2, fch3
 
@@ -53 +53 @@
     ! Martian date, Number of Martians years done by the PEM run, Number of Martians years done by the chainded simulation, Code of the stopping criterion
     ! The conversion ratio from Planetary years to Earth years is given in the header of the file
-    write(1,*) year_bp_ini + i_myear, i_myear_leg, i_myear, stopPEM
+    info_frmt = '(f'//int2str(nb_digits(year_bp_ini + i_myear) + 5)//'.4,'//'f'//int2str(nb_digits(i_myear_leg) + 5)//'.4,'//'f'//int2str(nb_digits(i_myear) + 5)//'.4,'//'i0)'
+    write(1,trim(adjustl(info_frmt))) year_bp_ini + i_myear, i_myear_leg, i_myear, stopPEM
     close(1)
 else