/[MITgcm]/MITgcm/pkg/exf/exf_check.F
ViewVC logotype

Diff of /MITgcm/pkg/exf/exf_check.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.11 by gforget, Wed Jun 11 18:55:10 2008 UTC revision 1.12 by jmc, Thu Aug 27 17:52:31 2009 UTC
# Line 33  c     == local variables == Line 33  c     == local variables ==
33  c     == end of interface ==  c     == end of interface ==
34    
35  c     check for consistency  c     check for consistency
36        if (.NOT.        if (.NOT.
37       &     (exf_iprec .EQ. 32 .OR. exf_iprec .EQ. 64)       &     (exf_iprec.EQ.precFloat32 .OR. exf_iprec.EQ.precFloat64)
38       &     ) then       &     ) then
39         stop 'S/R EXF_CHECK: value of exf_iprec not allowed'         stop 'S/R EXF_CHECK: value of exf_iprec not allowed'
40        elseif (.NOT.        elseif ( exf_yftype.NE.'RL' ) then
      &      (exf_yftype .EQ. 'RS' .OR.  
      &      exf_yftype .EQ. 'RL')  
      &      ) then  
41         stop 'S/R EXF_CHECK: value of exf_yftype not allowed'         stop 'S/R EXF_CHECK: value of exf_yftype not allowed'
42        endif        endif
43    
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22