[swanmodel-users] Patch 4091B bug

[<Uwe...@cs...>]

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/>