/[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.2 by heimbach, Tue Nov 12 20:47:27 2002 UTC revision 1.3 by dimitri, Sat Dec 28 10:11:11 2002 UTC
# Line 25  C     === Local variables === Line 25  C     === Local variables ===
25  C     msgBuf      - Informational/error meesage buffer  C     msgBuf      - Informational/error meesage buffer
26        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
27    
28    C--   ALLOW_SEAICE
29        WRITE(msgBuf,'(A)') 'SEAICE_CHECK: #define ALLOW_SEAICE'        WRITE(msgBuf,'(A)') 'SEAICE_CHECK: #define ALLOW_SEAICE'
30        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
31       &     SQUEEZE_RIGHT , myThid )       &     SQUEEZE_RIGHT , myThid )
32    
33    C--   SEAICE_ALLOW_DYNAMICS and SEAICEuseDYNAMICS
34    #ifndef SEAICE_ALLOW_DYNAMICS
35          IF (SEAICEuseDYNAMICS) THEN
36             WRITE(msgBuf,'(A)')
37         &        'SEAICE_ALLOW_DYNAMICS needed for SEAICEuseDYNAMICS'
38             CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
39         &        SQUEEZE_RIGHT , myThid )
40             STOP 'ABNORMAL END: S/R SEAICE_CHECK'
41          ENDIF
42    #endif SEAICE_ALLOW_DYNAMICS
43    
44    C--   SEAICE_EXTERNAL_FORCING
45    C     At present this option is hardwired for pkg/exf.
46    #ifdef SEAICE_EXTERNAL_FORCING
47    #ifndef INCLUDE_EXTERNAL_FORCING_PACKAGE
48             WRITE(msgBuf,'(A)')
49         &        'need to define INCLUDE_EXTERNAL_FORCING_PACKAGE'
50             CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
51         &        SQUEEZE_RIGHT , myThid )
52             STOP 'ABNORMAL END: S/R SEAICE_CHECK'
53    #endif INCLUDE_EXTERNAL_FORCING_PACKAGE
54    #ifndef ALLOW_BULKFORMULAE
55             WRITE(msgBuf,'(A)')
56         &        'need to define ALLOW_BULKFORMULAE'
57             CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
58         &        SQUEEZE_RIGHT , myThid )
59             STOP 'ABNORMAL END: S/R SEAICE_CHECK'
60    #endif ALLOW_BULKFORMULAE
61    #ifndef ALLOW_ATM_TEMP
62             WRITE(msgBuf,'(A)')
63         &        'need to define ALLOW_ATM_TEMP'
64             CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
65         &        SQUEEZE_RIGHT , myThid )
66             STOP 'ABNORMAL END: S/R SEAICE_CHECK'
67    #endif ALLOW_ATM_TEMP
68    #ifndef ALLOW_ATM_WIND
69             WRITE(msgBuf,'(A)')
70         &        'need to define ALLOW_ATM_WIND'
71             CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
72         &        SQUEEZE_RIGHT , myThid )
73             STOP 'ABNORMAL END: S/R SEAICE_CHECK'
74    #endif ALLOW_ATM_WIND
75    #ifndef ALLOW_RUNOFF
76             WRITE(msgBuf,'(A)')
77         &        'need to define ALLOW_RUNOFF'
78             CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
79         &        SQUEEZE_RIGHT , myThid )
80             STOP 'ABNORMAL END: S/R SEAICE_CHECK'
81    #endif ALLOW_RUNOFF
82    #endif SEAICE_EXTERNAL_FORCING
83    
84  #endif ALLOW_SEAICE  #endif ALLOW_SEAICE
85    
86        return        return
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22