[swanmodel-users] Patch 4091B bug
Brought to you by:
mzijlema
|
From: <Uwe...@cs...> - 2013-07-31 03:11:49
|
Hi guys,
there seem to be two errors for compiling under gfortran on macosx at
+++ agioncmd.f90 2013-07-31 12:47:03.000000000 +1000
@@ -261,7 +261,7 @@
dconv = 'nautical'
if ( present(nautical) ) then
- if ( not(nautical) ) then
+ if ( .not. nautical ) then
dconv = 'cartesian'
! nctablemd::nautical defaults to true
call set_nctable_convention_nautical(.false.)
and
+++ nctablemd.f90 2013-07-31 12:47:11.000000000 +1000
@@ -222,7 +222,7 @@
do i=1,size(nctable)
if ( nctable(i)%name == varname ) then
trecord = nctable(i)
- if ( not(nautical) ) then
+ if ( .not. nautical ) then
tmpname = trecord%standard_name
call nautical_to_cartesian_name(tmpname, trecord%standard_name)
cheers
Uwe
----------------------------------------------------------
Uwe Rosebrock
Software Engineer
CSIRO Marine & Atmospheric Research
T +61 (0)3 6232 5181
E uwe...@cs...<mailto:uwe...@cs...>
M +61 (0)422 513453
Castray Esplanade,
Hobart, TAS 7000
www.csiro.au<http://www.csiro.au/>
|