Commit 5526f1b3 authored by kb's avatar kb
Browse files

gfortran compliance

parent c0d34a15
!$Id: m2d.F90,v 1.23 2008-02-07 08:27:43 kb Exp $
!$Id: m2d.F90,v 1.24 2008-04-14 11:25:05 kb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -126,7 +126,7 @@
LEVEL2 'sealevel_check<0 --> NaN values will result in warnings'
end if
if (openbdy .eq. .false.) bdy2d=.false.
if (.not. openbdy) bdy2d=.false.
LEVEL2 'Open boundary=',bdy2d
if (bdy2d) then
if (hotstart .and. bdyramp_2d .gt. 0) then
......
!$Id: m3d.F90,v 1.41 2008-03-26 13:25:52 hb Exp $
!$Id: m3d.F90,v 1.42 2008-04-14 11:25:06 kb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -270,7 +270,7 @@
end if
#endif
if (openbdy .eq. .false.) bdy3d=.false.
if (.not. openbdy) bdy3d=.false.
if (bdy3d) call init_bdy_3d()
#ifdef DEBUG
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment