Changeset 2087 for LMDZ5/trunk/libf/dyn3d

Timestamp:

Jul 10, 2014, 9:18:06 AM (10 years ago)

Author:

fhourdin

Message:

Correction de bug pour gfortran qui refuse if (rerad_start==.false.)
change en if (.not. read_start)

File:

• LMDZ5/trunk/libf/dyn3d/iniacademic.F90 (modified) (1 diff)

LMDZ5/trunk/libf/dyn3d/iniacademic.F90

@@ -79 +79 @@
 
   ! Sanity check: verify that options selected by user are not incompatible
-  if ((iflag_phys==1).and.(read_start==.false.)) then
+  if ((iflag_phys==1).and. .not. read_start) then
     write(lunout,*) trim(modname)," error: if read_start is set to ", &
     " false then iflag_phys should not be 1"