/[MITgcm]/MITgcm/pkg/seaice/seaice_check.F
ViewVC logotype

Diff of /MITgcm/pkg/seaice/seaice_check.F

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

revision 1.3 by dimitri, Sat Dec 28 10:11:11 2002 UTC revision 1.4 by dimitri, Tue Feb 18 05:33:55 2003 UTC
# Line 14  C     === Global variables === Line 14  C     === Global variables ===
14  #include "SIZE.h"  #include "SIZE.h"
15  #include "EEPARAMS.h"  #include "EEPARAMS.h"
16  #include "PARAMS.h"  #include "PARAMS.h"
17    #include "SEAICE_PARAMS.h"
18    #ifdef INCLUDE_EXTERNAL_FORCING_PACKAGE
19          LOGICAL             EXFwindOnBgrid
20          COMMON /EXF_PARM_L/ EXFwindOnBgrid
21    #endif
22    
23  C     === Routine arguments ===  C     === Routine arguments ===
24  C     myThid -  Number of this instance of SEAICE_CHECK  C     myThid -  Number of this instance of SEAICE_CHECK
# Line 39  C--   SEAICE_ALLOW_DYNAMICS and SEAICEus Line 44  C--   SEAICE_ALLOW_DYNAMICS and SEAICEus
44       &        SQUEEZE_RIGHT , myThid )       &        SQUEEZE_RIGHT , myThid )
45           STOP 'ABNORMAL END: S/R SEAICE_CHECK'           STOP 'ABNORMAL END: S/R SEAICE_CHECK'
46        ENDIF        ENDIF
47  #endif SEAICE_ALLOW_DYNAMICS  #endif
48    
49  C--   SEAICE_EXTERNAL_FORCING  C--   SEAICE_EXTERNAL_FORCING
50  C     At present this option is hardwired for pkg/exf.  C     At present this option is hardwired for pkg/exf.
# Line 50  C     At present this option is hardwire Line 55  C     At present this option is hardwire
55           CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,           CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
56       &        SQUEEZE_RIGHT , myThid )       &        SQUEEZE_RIGHT , myThid )
57           STOP 'ABNORMAL END: S/R SEAICE_CHECK'           STOP 'ABNORMAL END: S/R SEAICE_CHECK'
58  #endif INCLUDE_EXTERNAL_FORCING_PACKAGE  #else /* INCLUDE_EXTERNAL_FORCING_PACKAGE */
59  #ifndef ALLOW_BULKFORMULAE  #ifndef ALLOW_ATM_TEMP
60           WRITE(msgBuf,'(A)')           WRITE(msgBuf,'(A)')
61       &        'need to define ALLOW_BULKFORMULAE'       &        'need to define pkg/exf ALLOW_ATM_TEMP'
62           CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,           CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
63       &        SQUEEZE_RIGHT , myThid )       &        SQUEEZE_RIGHT , myThid )
64           STOP 'ABNORMAL END: S/R SEAICE_CHECK'           STOP 'ABNORMAL END: S/R SEAICE_CHECK'
65  #endif ALLOW_BULKFORMULAE  #endif
66  #ifndef ALLOW_ATM_TEMP  #ifndef ALLOW_ATM_WIND
67           WRITE(msgBuf,'(A)')           WRITE(msgBuf,'(A)')
68       &        'need to define ALLOW_ATM_TEMP'       &        'need to define pkg/exf ALLOW_ATM_WIND'
69           CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,           CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
70       &        SQUEEZE_RIGHT , myThid )       &        SQUEEZE_RIGHT , myThid )
71           STOP 'ABNORMAL END: S/R SEAICE_CHECK'           STOP 'ABNORMAL END: S/R SEAICE_CHECK'
72  #endif ALLOW_ATM_TEMP  #endif
73  #ifndef ALLOW_ATM_WIND  #ifndef ALLOW_DOWNWARD_RADIATION
74             WRITE(msgBuf,'(A)')
75         &        'need to define pkg/exf ALLOW_DOWNWARD_RADIATION'
76             CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
77         &        SQUEEZE_RIGHT , myThid )
78             STOP 'ABNORMAL END: S/R SEAICE_CHECK'
79    #endif
80    #if !defined(EXF_READ_EVAP) && !defined(ALLOW_BULKFORMULAE)
81             WRITE(msgBuf,'(A)')
82         &     'need to set EXF_READ_EVAP or ALLOW_BULKFORMULAE in pkg/exf '
83             CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
84         &        SQUEEZE_RIGHT , myThid )
85             STOP 'ABNORMAL END: S/R SEAICE_CHECK'
86    #endif
87             IF(.NOT.SEAICEwindOnCgrid .AND. .NOT.EXFwindOnBgrid) THEN
88             WRITE(msgBuf,'(A)')
89         &        'please set either SEAICEwindOnCgrid or EXFwindOnBgrid '
90             CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
91         &        SQUEEZE_RIGHT , myThid )
92             STOP 'ABNORMAL END: S/R SEAICE_CHECK'
93             ENDIF
94             IF(SEAICEwindOnCgrid .AND. EXFwindOnBgrid) THEN
95             WRITE(msgBuf,'(A)')
96         &        'please unset either SEAICEwindOnCgrid or EXFwindOnBgrid '
97             CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
98         &        SQUEEZE_RIGHT , myThid )
99             STOP 'ABNORMAL END: S/R SEAICE_CHECK'
100             ENDIF
101    #endif /* INCLUDE_EXTERNAL_FORCING_PACKAGE */
102    #endif /* SEAICE_EXTERNAL_FORCING */
103    
104    C--   SEAICE_EXTERNAL_FLUXES
105    C     At present this option is hardwired for pkg/exf.
106    #ifdef SEAICE_EXTERNAL_FLUXES
107    #ifndef INCLUDE_EXTERNAL_FORCING_PACKAGE
108             WRITE(msgBuf,'(A)')
109         &        'need to define INCLUDE_EXTERNAL_FORCING_PACKAGE'
110             CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
111         &        SQUEEZE_RIGHT , myThid )
112             STOP 'ABNORMAL END: S/R SEAICE_CHECK'
113    #else /* INCLUDE_EXTERNAL_FORCING_PACKAGE */
114             IF(.NOT.SEAICEwindOnCgrid .AND. .NOT.EXFwindOnBgrid) THEN
115           WRITE(msgBuf,'(A)')           WRITE(msgBuf,'(A)')
116       &        'need to define ALLOW_ATM_WIND'       &        'please set either SEAICEwindOnCgrid or EXFwindOnBgrid '
117           CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,           CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
118       &        SQUEEZE_RIGHT , myThid )       &        SQUEEZE_RIGHT , myThid )
119           STOP 'ABNORMAL END: S/R SEAICE_CHECK'           STOP 'ABNORMAL END: S/R SEAICE_CHECK'
120  #endif ALLOW_ATM_WIND           ENDIF
121  #ifndef ALLOW_RUNOFF           IF(SEAICEwindOnCgrid .AND. EXFwindOnBgrid) THEN
122           WRITE(msgBuf,'(A)')           WRITE(msgBuf,'(A)')
123       &        'need to define ALLOW_RUNOFF'       &        'please unset either SEAICEwindOnCgrid or EXFwindOnBgrid '
124           CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,           CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
125       &        SQUEEZE_RIGHT , myThid )       &        SQUEEZE_RIGHT , myThid )
126           STOP 'ABNORMAL END: S/R SEAICE_CHECK'           STOP 'ABNORMAL END: S/R SEAICE_CHECK'
127  #endif ALLOW_RUNOFF           ENDIF
128  #endif SEAICE_EXTERNAL_FORCING  #endif /* INCLUDE_EXTERNAL_FORCING_PACKAGE */
129    #endif /* SEAICE_EXTERNAL_FLUXES */
130    
131  #endif ALLOW_SEAICE  #endif /* ALLOW_SEAICE */
132    
133        return        return
134        end        end
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22