/[MITgcm]/MITgcm/pkg/down_slope/dwnslp_readparms.F
ViewVC logotype

Diff of /MITgcm/pkg/down_slope/dwnslp_readparms.F

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

revision 1.3 by jmc, Fri Apr 23 13:19:26 2010 UTC revision 1.4 by jmc, Tue May 27 23:41:28 2014 UTC
# Line 28  C     === Routine arguments === Line 28  C     === Routine arguments ===
28        INTEGER myThid        INTEGER myThid
29    
30  #ifdef ALLOW_DOWN_SLOPE  #ifdef ALLOW_DOWN_SLOPE
   
       NAMELIST /DWNSLP_PARM01/  
      &          DWNSLP_slope, DWNSLP_rec_mu, DWNSLP_drFlow,  
      &          temp_useDWNSLP, salt_useDWNSLP  
   
31  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
32  C     === Local variables ===  C     === Local variables ===
33  C     msgBuf      - Informational/error message buffer  C     msgBuf     :: Informational/error message buffer
34  C     iUnit       - Work variable for IO unit number  C     iUnit      :: Work variable for IO unit number
35        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
36        INTEGER iUnit        INTEGER iUnit
37  CEOP  CEOP
38    
39          NAMELIST /DWNSLP_PARM01/
40         &          DWNSLP_slope, DWNSLP_rec_mu, DWNSLP_drFlow,
41         &          temp_useDWNSLP, salt_useDWNSLP
42    
43    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
44    
45          IF ( .NOT.useDOWN_SLOPE ) THEN
46    C-    pkg DOWN_SLOPE is not used
47            _BEGIN_MASTER(myThid)
48    C-    Track pkg activation status:
49    C     print a (weak) warning if data.down_slope is found
50             CALL PACKAGES_UNUSED_MSG(
51         I                'useDOWN_SLOPE', 'DWNSLP_READPARMS', ' ' )
52            _END_MASTER(myThid)
53            RETURN
54          ENDIF
55    
56        _BEGIN_MASTER(myThid)        _BEGIN_MASTER(myThid)
57    
58        WRITE(msgBuf,'(A)')' DWNSLP_READPARMS: opening data.down_slope'        WRITE(msgBuf,'(A)')' DWNSLP_READPARMS: opening data.down_slope'
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22