/[MITgcm]/MITgcm/pkg/ctrl/ctrl_check.F
ViewVC logotype

Diff of /MITgcm/pkg/ctrl/ctrl_check.F

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

revision 1.5 by edhill, Thu Oct 23 04:41:40 2003 UTC revision 1.6 by mlosch, Tue May 11 15:47:10 2010 UTC
# Line 111  C     Can not have both atmos. state and Line 111  C     Can not have both atmos. state and
111  #endif  #endif
112  #endif  #endif
113    
114    #ifdef ALLOW_SEAICE
115    C     pkg/seaice requires a particular set of control parameters
116    C     which in turn require a particular set of input fields
117    #ifndef ALLOW_ATM_WIND
118          WRITE(msgBuf,'(A)')
119         &     'The SEAICE adjoint requires ALLOW_ATM_WIND'
120          CALL PRINT_ERROR( msgBuf , 1)
121          STOP 'ABNORMAL END: S/R CTRL_CHECK'
122    #endif
123    #if (defined ALLOW_HFLUX_CONTROL || defined ALLOW_SFLUX_CONTROL || \
124         defined ALLOW_USTRESS_CONTROL || defined ALLOW_VSTRESS_CONTROL )
125          WRITE(msgBuf,'(A)')
126         &     'The SEAICE adjoint does not allow the surface fluxes'
127          CALL PRINT_ERROR( msgBuf , 1)
128          WRITE(msgBuf,'(A)') 'ALLOW_HFLUX_CONTROL'
129          CALL PRINT_ERROR( msgBuf , 1)
130          WRITE(msgBuf,'(A)') 'ALLOW_SFLUX_CONTROL'
131          CALL PRINT_ERROR( msgBuf , 1)
132          WRITE(msgBuf,'(A)') 'ALLOW_USTRESS_CONTROL'
133          CALL PRINT_ERROR( msgBuf , 1)
134          WRITE(msgBuf,'(A)') 'ALLOW_VSTRESS_CONTROL'
135          CALL PRINT_ERROR( msgBuf , 1)
136          WRITE(msgBuf,'(A)') 'to be control vaiables'
137          CALL PRINT_ERROR( msgBuf , 1)
138          STOP 'ABNORMAL END: S/R CTRL_CHECK'
139    #endif
140    #endif /* ALLOW_SEAICE */
141        return        return
142        end        end
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22