Changeset 3072 for trunk/LMDZ.MARS/libf

Timestamp:

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

Author:

jbclement

Message:

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

File:

• trunk/LMDZ.MARS/libf/phymars/dyn1d/init_testphys1d_mod.F90 (modified) (1 diff)

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