/[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.6 by jmc, Mon May 14 19:34:57 2007 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 '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 ( exf_yftype.NE.'RL' ) then
41       &        (exf_yftype .EQ. 'RS' .OR.         stop 'S/R EXF_CHECK: value of exf_yftype not allowed'
42       &        exf_yftype .EQ. 'RL')        endif
      &        ) then  
          stop 'stop in exf_readparms: value of exf_yftype not allowed'  
       end if  
43    
44        if ( useCubedSphereExchange ) then        if (repeatPeriod.lt.0.) then
45  cph         if ( uvecfile .NE. ' ' .and. vvecfile .NE. ' ' ) then         stop 'S/R EXF_CHECK: repeatPeriod must be positive'
46  c     some restrictions that can be relaxed later on        endif
47  cph            if ( uvecstartdate .ne. vvecstartdate .or.  
48  cph     &           uvecperiod    .ne. vvecperiod ) then        if (useExfYearlyFields.and.repeatPeriod.ne.0.) then
49  cph               print*,'For useCubedSphereExchange, S/R exf_set_uv.F'         print*,'Use of usefldyearlyfields AND repeatPeriod',
50  cph               print*,'assumes that the u and v wind or wind stress'       &      ' not implemented'
51  cph               print*,'files have the same startdate and period.'         stop 'ABNORMAL END: S/R EXF_CHECK'
 cph               stop  
 cph            endif  
 cph         endif  
52        endif        endif
53    
54  #if ( defined (ALLOW_BULKFORMULAE) && defined (ALLOW_ATM_WIND) )  #if ( defined (ALLOW_BULKFORMULAE) && defined (ALLOW_ATM_WIND) )
# Line 63  cph         endif Line 57  cph         endif
57       & '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'
58        ENDIF        ENDIF
59  #endif  #endif
60    
61  #ifndef ALLOW_ATM_WIND  #ifndef ALLOW_ATM_WIND
62        IF ( uwindfile .NE. ' ' .OR. vwindfile .NE. ' ' ) THEN        IF ( uwindfile .NE. ' ' .OR. vwindfile .NE. ' ' ) THEN
63          STOP          STOP
# Line 84  cph         endif Line 79  cph         endif
79        IF ( readStressOnAgrid.OR.readStressOnCgrid ) THEN        IF ( readStressOnAgrid.OR.readStressOnCgrid ) THEN
80          STOP 'wind-stress position defined by Long/Lat'          STOP 'wind-stress position defined by Long/Lat'
81        ENDIF        ENDIF
82  #else        if ( usingCurvilinearGrid ) then
83        IF ( ustressfile .NE. ' ' .OR. ustressfile .NE. ' ' ) THEN  c     some restrictions that can be relaxed later on
84           if ( ustressfile .NE. ' ' .and. vstressfile .NE. ' ' ) then
85            if ( ustressstartdate .ne. vstressstartdate .or.
86         &       ustressperiod    .ne. vstressperiod ) then
87             print*,'For useCubedSphereExchange, S/R exf_set_uv.F'
88             print*,'assumes that the u and v wind stress files'
89             print*,'have the same startdate and period.'
90             stop
91            endif
92           endif
93           if ( uwindfile .NE. ' ' .and. vwindfile .NE. ' ' ) then
94            if ( uwindstartdate .ne. vwindstartdate .or.
95         &       uwindperiod    .ne. vwindperiod ) then
96             print*,'For useCubedSphereExchange, S/R exf_set_uv.F'
97             print*,'assumes that the u and v wind files'
98             print*,'have the same startdate and period.'
99             stop
100            endif
101           endif
102          endif
103    #else /* ifndef USE_EXF_INTERPOLATION */
104          IF ( ustressfile .NE. ' ' .OR. vstressfile .NE. ' ' ) THEN
105          IF ( (readStressOnAgrid.AND.readStressOnCgrid) .OR.          IF ( (readStressOnAgrid.AND.readStressOnCgrid) .OR.
106       &   .NOT.(readStressOnAgrid.OR.readStressOnCgrid) ) THEN       &   .NOT.(readStressOnAgrid.OR.readStressOnCgrid) ) THEN
107            STOP            STOP
# Line 96  cph         endif Line 112  cph         endif
112            STOP 'S/R EXF_CHECK: wind-stress position irrelevant'            STOP 'S/R EXF_CHECK: wind-stress position irrelevant'
113          ENDIF          ENDIF
114        ENDIF        ENDIF
115  #endif  #endif /* USE_EXF_INTERPOLATION */
116    
117  #ifdef ALLOW_CLIMTEMP_RELAXATION  #ifdef ALLOW_CLIMTEMP_RELAXATION
118        STOP 'ALLOW_CLIMTEMP_RELAXATION no longer supported. Use pkg/rbcs'        STOP 'ALLOW_CLIMTEMP_RELAXATION no longer supported. Use pkg/rbcs'
119  #endif  #endif
120    
   
121  #ifdef ALLOW_CLIMSALT_RELAXATION  #ifdef ALLOW_CLIMSALT_RELAXATION
122        STOP 'ALLOW_CLIMSALT_RELAXATION no longer supported. Use pkg/rbcs'        STOP 'ALLOW_CLIMSALT_RELAXATION no longer supported. Use pkg/rbcs'
123  #endif  #endif
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22