Changeset 4091 for trunk/LMDZ.COMMON/libf/evolution/config.F90

Timestamp:

Feb 27, 2026, 3:54:06 PM (3 days ago)

Author:

jbclement

Message:

PEM:
Small corrections in the scripts.
JBC

File:

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

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

@@ -24 +24 @@
 
 character(7),  parameter :: rundef_name = 'run.def'
-character(11), parameter :: runPCMdef_name = 'run_pcm.def'
+character(11), parameter :: run_pcmdef_name = 'run_pcm.def'
 character(12), parameter :: callphys_name = 'callphys.def'
 
@@ -350 +350 @@
 ! CODE
 ! ----
-inquire(file = runPCMdef_name,exist = here)
-if (.not. here) call stop_clean(__FILE__,__LINE__,'cannot find required file "'//runPCMdef_name//'"!',1)
-call print_msg('> Reading "'//runPCMdef_name//'"')
-open(newunit = funit,file = runPCMdef_name,status = 'old',form = 'formatted',action = 'read',iostat = ierr)
-if (ierr /= 0) call stop_clean(__FILE__,__LINE__,'error opening file "'//runPCMdef_name//'"!',ierr)
+inquire(file = run_pcmdef_name,exist = here)
+if (.not. here) call stop_clean(__FILE__,__LINE__,'cannot find required file "'//run_pcmdef_name//'"!',1)
+call print_msg('> Reading "'//run_pcmdef_name//'"')
+open(newunit = funit,file = run_pcmdef_name,status = 'old',form = 'formatted',action = 'read',iostat = ierr)
+if (ierr /= 0) call stop_clean(__FILE__,__LINE__,'error opening file "'//run_pcmdef_name//'"!',ierr)
 
 found = .false.
@@ -385 +385 @@
 close(funit)
 
-if (.not. found) call print_msg('Warning: key ''hybrid'' not found in the file "'//runPCMdef_name//'"!')
+if (.not. found) call print_msg('Warning: key ''hybrid'' not found in the file "'//run_pcmdef_name//'"!')
 if (hybrid .eqv. hybrid_in) call print_msg('USING DEFAULTS : hybrid = '//bool2str(hybrid_in))