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

Timestamp:

Nov 28, 2025, 5:38:44 PM (2 days ago)

Author:

jbclement

Message:

PEM:
Renaming the file "info_PEM.txt" into "launchPEM.info".
JBC

File:

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

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

@@ -13 +13 @@
 !=======================================================================
 !
-! Purpose: Update the first line of "info_PEM.txt" to count the number of simulated Martian years
-!          Write in "info_PEM.txt" the reason why the PEM stopped and the number of simulated years
+! Purpose: Update the first line of "launchPEM.info" to count the number of simulated Martian years
+!          Write in "launchPEM.info" the reason why the PEM stopped and the number of simulated years
 !
 ! Author: RV, JBC
@@ -34 +34 @@
 
 !----- Code
-inquire(file = 'info_PEM.txt',exist = ok)
+inquire(file = 'launchPEM.info',exist = ok)
 if (ok) then
     write(fch1,'(f'//int2str(nb_digits(i_myear) + 5)//'.4)') i_myear
     write(fch2,'(f'//int2str(nb_digits(n_myear) + 5)//'.4)') n_myear
     write(fch3,'(f6.4)') convert_years ! 4 digits to the right of the decimal point to respect the precision of Martian year in "launch_pem.sh"
-    call execute_command_line('sed -i "1s/.*/'//trim(fch1)//' '//trim(fch2)//' '//trim(fch3)//' '//int2str(iPCM)//' '//int2str(iPEM + 1)//' '//int2str(nPCM)//' '//int2str(nPCM_ini)//'/" info_PEM.txt',cmdstat = cstat)
+    call execute_command_line('sed -i "1s/.*/'//trim(fch1)//' '//trim(fch2)//' '//trim(fch3)//' '//int2str(iPCM)//' '//int2str(iPEM + 1)//' '//int2str(nPCM)//' '//int2str(nPCM_ini)//'/" launchPEM.info',cmdstat = cstat)
     if (cstat > 0) then
         error stop 'info_PEM: command execution failed!'
@@ -45 +45 @@
         error stop 'info_PEM: command execution not supported!'
     endif
-    open(1,file = 'info_PEM.txt',status = "old",position = "append",action = "write")
+    open(1,file = 'launchPEM.info',status = "old",position = "append",action = "write")
     ! 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
@@ -51 +51 @@
     close(1)
 else
-    error stop 'The file ''info_PEM.txt'' does not exist and cannot be updated!'
+    error stop 'The file ''launchPEM.info'' does not exist and cannot be updated!'
 endif