/[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.7 by heimbach, Wed Jun 27 21:38:09 2007 UTC revision 1.8 by dimitri, Fri Jan 25 11:23:06 2008 UTC
# Line 36  c     check for consistency Line 36  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)
38       &     ) then       &     ) then
39           stop 'stop in exf_readparms: value of exf_iprec not allowed'         stop 'S/R EXF_CHECK: value of exf_iprec not allowed'
40        else if (.NOT.        elseif (.NOT.
41       &        (exf_yftype .EQ. 'RS' .OR.       &      (exf_yftype .EQ. 'RS' .OR.
42       &        exf_yftype .EQ. 'RL')       &      exf_yftype .EQ. 'RL')
43       &        ) then       &      ) then
44           stop 'stop in exf_readparms: value of exf_yftype not allowed'         stop 'S/R EXF_CHECK: value of exf_yftype not allowed'
45        end if        endif
46    
47        if ( useCubedSphereExchange ) then        if (repeatPeriod.lt.0.) then
48  cph         if ( uvecfile .NE. ' ' .and. vvecfile .NE. ' ' ) then         stop 'S/R EXF_CHECK: repeatPeriod must be positive'
49  c     some restrictions that can be relaxed later on        endif
50  cph            if ( uvecstartdate .ne. vvecstartdate .or.  
51  cph     &           uvecperiod    .ne. vvecperiod ) then        if (useExfYearlyFields.and.repeatPeriod.ne.0.) then
52  cph               print*,'For useCubedSphereExchange, S/R exf_set_uv.F'         print*,'Use of usefldyearlyfields AND repeatPeriod',
53  cph               print*,'assumes that the u and v wind or wind stress'       &      ' not implemented'
54  cph               print*,'files have the same startdate and period.'         stop 'ABNORMAL END: S/R EXF_CHECK'
 cph               stop  
 cph            endif  
 cph         endif  
55        endif        endif
56    
57  #if ( defined (ALLOW_BULKFORMULAE) && defined (ALLOW_ATM_WIND) )  #if ( defined (ALLOW_BULKFORMULAE) && defined (ALLOW_ATM_WIND) )
# Line 63  cph         endif Line 60  cph         endif
60       & 'S/R EXF_CHECK: use u,v_wind components but not wind-stress'       & 'S/R EXF_CHECK: use u,v_wind components but not wind-stress'
61        ENDIF        ENDIF
62  #endif  #endif
63    
64  #ifndef ALLOW_ATM_WIND  #ifndef ALLOW_ATM_WIND
65        IF ( uwindfile .NE. ' ' .OR. vwindfile .NE. ' ' ) THEN        IF ( uwindfile .NE. ' ' .OR. vwindfile .NE. ' ' ) THEN
66          STOP          STOP
# Line 84  cph         endif Line 82  cph         endif
82        IF ( readStressOnAgrid.OR.readStressOnCgrid ) THEN        IF ( readStressOnAgrid.OR.readStressOnCgrid ) THEN
83          STOP 'wind-stress position defined by Long/Lat'          STOP 'wind-stress position defined by Long/Lat'
84        ENDIF        ENDIF
85  #else        if ( usingCurvilinearGrid ) then
86           if ( uvecfile .NE. ' ' .and. vvecfile .NE. ' ' ) then
87    c     some restrictions that can be relaxed later on
88            if ( uvecstartdate .ne. vvecstartdate .or.
89         &       uvecperiod    .ne. vvecperiod ) then
90             print*,'For useCubedSphereExchange, S/R exf_set_uv.F'
91             print*,'assumes that the u and v wind or wind stress'
92             print*,'files have the same startdate and period.'
93             stop
94            endif
95           endif
96          endif
97    #else /* ifndef USE_EXF_INTERPOLATION */
98        IF ( ustressfile .NE. ' ' .OR. vstressfile .NE. ' ' ) THEN        IF ( ustressfile .NE. ' ' .OR. vstressfile .NE. ' ' ) THEN
99          IF ( (readStressOnAgrid.AND.readStressOnCgrid) .OR.          IF ( (readStressOnAgrid.AND.readStressOnCgrid) .OR.
100       &   .NOT.(readStressOnAgrid.OR.readStressOnCgrid) ) THEN       &   .NOT.(readStressOnAgrid.OR.readStressOnCgrid) ) THEN
# Line 96  cph         endif Line 106  cph         endif
106            STOP 'S/R EXF_CHECK: wind-stress position irrelevant'            STOP 'S/R EXF_CHECK: wind-stress position irrelevant'
107          ENDIF          ENDIF
108        ENDIF        ENDIF
109  #endif  #endif /* USE_EXF_INTERPOLATION */
110    
111  #ifdef ALLOW_CLIMTEMP_RELAXATION  #ifdef ALLOW_CLIMTEMP_RELAXATION
112        STOP 'ALLOW_CLIMTEMP_RELAXATION no longer supported. Use pkg/rbcs'        STOP 'ALLOW_CLIMTEMP_RELAXATION no longer supported. Use pkg/rbcs'
113  #endif  #endif
114    
   
115  #ifdef ALLOW_CLIMSALT_RELAXATION  #ifdef ALLOW_CLIMSALT_RELAXATION
116        STOP 'ALLOW_CLIMSALT_RELAXATION no longer supported. Use pkg/rbcs'        STOP 'ALLOW_CLIMSALT_RELAXATION no longer supported. Use pkg/rbcs'
117  #endif  #endif
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22