Changeset 2087 for LMDZ5/trunk/libf


Ignore:
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)

Location:
LMDZ5/trunk/libf
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/dyn3d/iniacademic.F90

    r2083 r2087  
    7979
    8080  ! Sanity check: verify that options selected by user are not incompatible
    81   if ((iflag_phys==1).and.(read_start==.false.)) then
     81  if ((iflag_phys==1).and. .not. read_start) then
    8282    write(lunout,*) trim(modname)," error: if read_start is set to ", &
    8383    " false then iflag_phys should not be 1"
  • LMDZ5/trunk/libf/dyn3dmem/iniacademic_loc.F90

    r2083 r2087  
    8282
    8383  ! Sanity check: verify that options selected by user are not incompatible
    84   if ((iflag_phys==1).and.(read_start==.false.)) then
     84  if ((iflag_phys==1).and. .not. read_start) then
    8585    write(lunout,*) trim(modname)," error: if read_start is set to ", &
    8686    " false then iflag_phys should not be 1"
  • LMDZ5/trunk/libf/dyn3dpar/iniacademic.F90

    r2083 r2087  
    7979
    8080  ! Sanity check: verify that options selected by user are not incompatible
    81   if ((iflag_phys==1).and.(read_start==.false.)) then
     81  if ((iflag_phys==1).and. .not. read_start) then
    8282    write(lunout,*) trim(modname)," error: if read_start is set to ", &
    8383    " false then iflag_phys should not be 1"
Note: See TracChangeset for help on using the changeset viewer.