/[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.5 by heimbach, Wed Apr 18 19:55:34 2007 UTC revision 1.6 by jmc, Mon May 14 19:34:57 2007 UTC
# Line 16  c     == global variables == Line 16  c     == global variables ==
16  #include "EEPARAMS.h"  #include "EEPARAMS.h"
17  #include "SIZE.h"  #include "SIZE.h"
18  #include "PARAMS.h"  #include "PARAMS.h"
19  #include "FFIELDS.h"  c#include "FFIELDS.h"
20  #include "GRID.h"  c#include "GRID.h"
21    
22  #include "EXF_PARAM.h"  #include "EXF_PARAM.h"
23  #include "EXF_CONSTANTS.h"  #include "EXF_CONSTANTS.h"
24  #include "EXF_FIELDS.h"  c#include "EXF_FIELDS.h"
25  c     == routine arguments ==  c     == routine arguments ==
26    
27  c     mythid - thread number for this instance of the routine.  c     mythid - thread number for this instance of the routine.
# Line 30  c     mythid - thread number for this in Line 30  c     mythid - thread number for this in
30    
31  c     == local variables ==  c     == local variables ==
32    
       integer bi,bj  
       integer i,j  
       integer jtlo  
       integer jthi  
       integer itlo  
       integer ithi  
       integer jmin  
       integer jmax  
       integer imin  
       integer imax  
   
33  c     == end of interface ==  c     == end of interface ==
34    
       jtlo = mybylo(mythid)  
       jthi = mybyhi(mythid)  
       itlo = mybxlo(mythid)  
       ithi = mybxhi(mythid)  
       jmin = 1-oly  
       jmax = sny+oly  
       imin = 1-olx  
       imax = snx+olx  
   
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. 32 .OR. exf_iprec .EQ. 64)
# Line 77  cph            endif Line 57  cph            endif
57  cph         endif  cph         endif
58        endif        endif
59    
60    #if ( defined (ALLOW_BULKFORMULAE) && defined (ALLOW_ATM_WIND) )
61          IF ( ustressfile .NE. ' ' .OR. ustressfile .NE. ' ' ) THEN
62            STOP
63         & 'S/R EXF_CHECK: use u,v_wind components but not wind-stress'
64          ENDIF
65    #endif
66    #ifndef ALLOW_ATM_WIND
67          IF ( uwindfile .NE. ' ' .OR. vwindfile .NE. ' ' ) THEN
68            STOP
69         & 'S/R EXF_CHECK: read-in wind-stress but not u,v_wind components'
70          ENDIF
71    #endif
72    
73  #ifdef USE_EXF_INTERPOLATION  #ifdef USE_EXF_INTERPOLATION
74          if ( climsst_nlat .GT. MAX_LAT_INC )
75         & stop 'stopped in exf_readparms: climsst_nlat > MAX_LAT_INC'
76          if ( climsss_nlat .GT. MAX_LAT_INC )
77         & stop 'stopped in exf_readparms: climsss_nlat > MAX_LAT_INC'
78        if ( usingCartesianGrid ) then        if ( usingCartesianGrid ) then
79         print*,'USE_EXF_INTERPOLATION assumes latitude/longitude'         print*,'USE_EXF_INTERPOLATION assumes latitude/longitude'
80         print*,'input and output coordinates.  Trivial to extend to'         print*,'input and output coordinates.  Trivial to extend to'
81         print*,'cartesian coordinates, but has not yet been done.'         print*,'cartesian coordinates, but has not yet been done.'
82         stop         stop
83        endif        endif
84          IF ( readStressOnAgrid.OR.readStressOnCgrid ) THEN
85            STOP 'wind-stress position defined by Long/Lat'
86          ENDIF
87    #else
88          IF ( ustressfile .NE. ' ' .OR. ustressfile .NE. ' ' ) THEN
89            IF ( (readStressOnAgrid.AND.readStressOnCgrid) .OR.
90         &   .NOT.(readStressOnAgrid.OR.readStressOnCgrid) ) THEN
91              STOP
92         & 'S/R EXF_CHECK: Select 1 wind-stress position: A or C-grid'
93            ENDIF
94          ELSE
95            IF ( readStressOnAgrid .OR. readStressOnCgrid ) THEN
96              STOP 'S/R EXF_CHECK: wind-stress position irrelevant'
97            ENDIF
98          ENDIF
99  #endif  #endif
100    
101  #ifdef ALLOW_CLIMTEMP_RELAXATION  #ifdef ALLOW_CLIMTEMP_RELAXATION
# Line 95  cph         endif Line 107  cph         endif
107        STOP 'ALLOW_CLIMSALT_RELAXATION no longer supported. Use pkg/rbcs'        STOP 'ALLOW_CLIMSALT_RELAXATION no longer supported. Use pkg/rbcs'
108  #endif  #endif
109    
110        end        RETURN
111          END
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22