Changeset 3072

Timestamp:

Oct 5, 2023, 11:58:22 AM (14 months ago)

Author:

jbclement

Message:

Mars PCM:
Correction of a bug introduced in commit r3069 when compiling with ifort.
JBC

Location:

trunk

Files:

• LMDZ.COMMON/libf/evolution/pem.F90 (modified) (1 diff)
• LMDZ.MARS/changelog.txt (modified) (1 diff)
• LMDZ.MARS/libf/phymars/dyn1d/init_testphys1d_mod.F90 (modified) (1 diff)

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

@@ -72 +72 @@
     use mod_phys_lmdz_para, only: is_parallel, is_sequential, is_mpi_root, is_omp_root, is_master
     use planete_h,          only: aphelie, periheli, year_day, peri_day, obliquit
-    use comcstfi_h,         only: r, mugaz, g
+    use comcstfi_h,         only: r, mugaz
     use paleoclimate_mod,   only: albedo_perenialco2
 #else

trunk/LMDZ.MARS/changelog.txt

@@ -4235 +4235 @@
 Related to commit r3066, correction of a bug to write/read a restart/start in 1D and more adaptations of the code.
 
-== 03/10/2023 == AB
+== 05/10/2023 == AB
 Add an example of setup in util/compile to compile utilitary programs on Adastra supercomputer.
 Warning: on Adastra, you need to add the netcdf library path to LD_LIBRARY_PATH before running the executable
 (export LD_LIBRARY_PATH=$LD_LIBRARY_PATH:$NETCDF_DIR/lib)
+
+== 05/10/2023 == JBC
+Correction of a bug introduced in commit r3069 when compiling with ifort.

trunk/LMDZ.MARS/libf/phymars/dyn1d/init_testphys1d_mod.F90

@@ -451 +451 @@
     do iq = 1,nq
         read(3,*) header, (qsurf(1,iq,j), j = 1,size(qsurf,3)), (q(1,ilayer,iq), ilayer = 1,nlayer)
-        if (trim(tname(iq)) /= trim(header)) error stop 'Tracer names not compatible for initialization with "'//trim(start1Dname)//'"!'
+        if (trim(tname(iq)) /= trim(header)) then
+            write(*,*) 'Tracer names not compatible for initialization with "'//trim(start1Dname)//'"!'
+            error stop
+        endif
     enddo
 endif