/[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.1 by heimbach, Mon Nov 11 22:01:21 2002 UTC revision 1.2 by heimbach, Tue Nov 12 20:47:27 2002 UTC
# Line 0  Line 1 
1    C
2    
3    #include "SEAICE_OPTIONS.h"
4    
5          SUBROUTINE SEAICE_CHECK( myThid )
6    C     /==========================================================\
7    C     | SUBROUTINE SEAICE_CHECK                                  |
8    C     | o Validate basic package setup and inter-package         |
9    C     | dependencies.                                            |
10    C     \==========================================================/
11          IMPLICIT NONE
12    
13    C     === Global variables ===
14    #include "SIZE.h"
15    #include "EEPARAMS.h"
16    #include "PARAMS.h"
17    
18    C     === Routine arguments ===
19    C     myThid -  Number of this instance of SEAICE_CHECK
20          INTEGER myThid
21    
22    #ifdef ALLOW_SEAICE
23    
24    C     === Local variables ===
25    C     msgBuf      - Informational/error meesage buffer
26          CHARACTER*(MAX_LEN_MBUF) msgBuf
27    
28          WRITE(msgBuf,'(A)') 'SEAICE_CHECK: #define ALLOW_SEAICE'
29          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
30         &     SQUEEZE_RIGHT , myThid )
31    
32    #endif ALLOW_SEAICE
33    
34          return
35          end
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22