/[MITgcm]/MITgcm/pkg/mypackage/mypackage_check.F
ViewVC logotype

Diff of /MITgcm/pkg/mypackage/mypackage_check.F

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

revision 1.2 by edhill, Mon Aug 7 21:13:52 2006 UTC revision 1.3 by jmc, Sun Jan 27 20:52:11 2008 UTC
# Line 21  C     !USES: Line 21  C     !USES:
21  #include "MYPACKAGE.h"  #include "MYPACKAGE.h"
22    
23  C     !INPUT PARAMETERS:  C     !INPUT PARAMETERS:
24  C     myThid -  Number of this instances  C     myThid   :: my Thread Id number
25        INTEGER myThid        INTEGER myThid
26  CEOP  CEOP
27    
28  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
29  C     msgBuf      - Informational/error meesage buffer  C     msgBuf   :: Informational/error meesage buffer
30        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
31    
   
32  #ifdef ALLOW_MYPACKAGE  #ifdef ALLOW_MYPACKAGE
33    
34          _BEGIN_MASTER(myThid)
35    
36         WRITE(msgBuf,'(A)') 'MYPACKAGE_CHECK: #define MYPACKAGE'         WRITE(msgBuf,'(A)') 'MYPACKAGE_CHECK: #define MYPACKAGE'
37         CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,         CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
38       &                    SQUEEZE_RIGHT , 1)       &                     SQUEEZE_RIGHT , 1)
39    
40    C--  Print out some kee parameters :
41           CALL WRITE_0D_L( myPa_StaV_Cgrid, INDEX_NONE,
42         &  'myPa_StaV_Cgrid =', ' /* state vector on C-grid */')
43           CALL WRITE_0D_L( myPa_Tend_Cgrid, INDEX_NONE,
44         &  'myPa_Tend_Cgrid =', ' /* vector tendency on C-grid */')
45           CALL WRITE_0D_L( myPa_applyTendT, INDEX_NONE,
46         &  'myPa_applyTendT =',
47         &  ' /* apply MYPA tendency to Temperature Eq.*/')
48           CALL WRITE_0D_L( myPa_applyTendS, INDEX_NONE,
49         &  'myPa_applyTendS =',
50         &  ' /* apply MYPA tendency to Salinity Eq.*/')
51           CALL WRITE_0D_L( myPa_applyTendU, INDEX_NONE,
52         &  'myPa_applyTendU =',
53         &  ' /* apply MYPA tendency to U momentum Eq.*/')
54           CALL WRITE_0D_L( myPa_applyTendV, INDEX_NONE,
55         &  'myPa_applyTendV =',
56         &  ' /* apply MYPA tendency to V momentum Eq.*/')
57    C-   add some other as example:
58           CALL WRITE_0D_I( myPa_index1, INDEX_NONE, ' myPa_index1 =',
59         &  ' /* user defined parameter */')
60           CALL WRITE_0D_R8( myPa_param1, INDEX_NONE, ' myPa_param1 =',
61         &  ' /* user defined parameter */')
62           CALL WRITE_0D_C( myPa_string1,-1,INDEX_NONE,'myPa_string1 =',
63         &  ' /* user defined parameter */')
64    
65  C--  Check parameters:  C--  Check parameters:
66    
       _BEGIN_MASTER(myThid)  
67    
68  C-     Put stops here if some flags are wrongly chosen.  C-     Put stops here if some flags are wrongly chosen.
69  C-     For example, require this package to use tempStepping  C-     For example, require this package to use tempStepping
70         IF (.NOT.tempStepping) THEN         IF ( .NOT.tempStepping .AND. myPa_applyTendT ) THEN
71          WRITE(msgBuf,'(A)') 'An example requirement is:'          WRITE(msgBuf,'(A)') 'An example requirement is:'
72          CALL PRINT_ERROR( msgBuf , 1)          CALL PRINT_ERROR( msgBuf , 1)
73          WRITE(msgBuf,'(A)') 'mypackage needs tempStepping=.true.'          WRITE(msgBuf,'(A)') 'myPa_applyTendT needs tempStepping=.true.'
74          CALL PRINT_ERROR( msgBuf , 1)          CALL PRINT_ERROR( msgBuf , 1)
75          STOP 'ABNORMAL END: S/R MYPACKAGE_CHECK'          STOP 'ABNORMAL END: S/R MYPACKAGE_CHECK'
76         ENDIF         ENDIF
# Line 53  C-     For example, require this package Line 78  C-     For example, require this package
78        _END_MASTER(myThid)        _END_MASTER(myThid)
79    
80  #endif /* ALLOW_MYPACKAGE */  #endif /* ALLOW_MYPACKAGE */
81    
82        RETURN        RETURN
83        END        END
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22