/[MITgcm]/MITgcm_contrib/darwin2/pkg/darwin/darwin_check.F
ViewVC logotype

Diff of /MITgcm_contrib/darwin2/pkg/darwin/darwin_check.F

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

revision 1.1 by jahn, Wed Apr 13 18:56:24 2011 UTC revision 1.2 by jahn, Wed Dec 4 21:27:54 2013 UTC
# Line 13  C     \================================= Line 13  C     \=================================
13        IMPLICIT NONE        IMPLICIT NONE
14    
15  C     === Global variables ===  C     === Global variables ===
16  c#include "EEPARAMS.h"  #include "SIZE.h"
17    #include "EEPARAMS.h"
18    #include "PARAMS.h"
19    #include "DARWIN_SIZE.h"
20    #include "DARWIN_IO.h"
21    
22  C     === Routine arguments ===  C     === Routine arguments ===
23  C     myThid -  Number of this instances  C     myThid -  Number of this instances
24        INTEGER myThid        INTEGER myThid
25    
26    #ifdef ALLOW_DARWIN
27    
28  C     === Local variables ===  C     === Local variables ===
29    C !LOCAL VARIABLES: ====================================================
30    C  iUnit   :: unit number for I/O
31    C  msgBuf  :: message buffer
32          INTEGER iUnit,errIO
33          CHARACTER*(MAX_LEN_MBUF) msgBuf
34    CEOP
35    
36          _BEGIN_MASTER(myThid)
37    
38    C--   Print a summary of dependent parameter values:
39          iUnit = standardMessageUnit
40          WRITE(msgBuf,'(A)') '// ==================================='
41          CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT , myThid )
42          WRITE(msgBuf,'(A)') '// darwin dependent parameters'
43          CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT , myThid )
44          WRITE(msgBuf,'(A)') '// ==================================='
45          CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT , myThid )
46          IF ( darwin_useiceFile ) THEN
47            WRITE(msgBuf,'(2A)') 'DARWIN_CHECK:',
48         &    ' using ice area from darwin_iceFile'
49            CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT , myThid )
50          ENDIF
51          IF ( darwin_useareamask ) THEN
52            WRITE(msgBuf,'(2A)') 'DARWIN_CHECK:',
53         &    ' using ice area from exf'
54            CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT , myThid )
55          ENDIF
56          IF ( darwin_useiceMask ) THEN
57            WRITE(msgBuf,'(2A)') 'DARWIN_CHECK:',
58         &    ' using ice area from THSICE pkg'
59            CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT , myThid )
60          ENDIF
61          IF ( darwin_useAREA ) THEN
62            WRITE(msgBuf,'(2A)') 'DARWIN_CHECK:',
63         &    ' using ice area from SEAICE pkg'
64            CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT , myThid )
65          ENDIF
66          WRITE(msgBuf,'(A)') '// ==================================='
67          CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT , myThid )
68    
69          _END_MASTER(myThid)
70    
 #ifdef ALLOW_DARWIN  
 C     run checks specific to darwin  
71  #ifdef ALLOW_QUOTA  #ifdef ALLOW_QUOTA
72        CALL QUOTA_CHECK( myThid )        CALL QUOTA_CHECK( myThid )
73  #endif  #endif
74    
75  #ifdef ALLOW_MONOD  #ifdef ALLOW_MONOD
76        CALL MONOD_CHECK( myThid )        CALL MONOD_CHECK( myThid )
77  #endif  #endif
78    
79  #endif /* ALLOW_DARWIN */  #endif /* ALLOW_DARWIN */
80                
81        RETURN        RETURN
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22