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

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

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

revision 1.3 by jmc, Sun Jan 27 20:52:11 2008 UTC revision 1.4 by jmc, Sun Dec 27 23:40:03 2009 UTC
# Line 26  CEOP Line 26  CEOP
26    
27  #ifdef ALLOW_MYPACKAGE  #ifdef ALLOW_MYPACKAGE
28    
29    C     !LOCAL VARIABLES:
30    C     msgBuf     :: Informational/error message buffer
31    C     iUnit      :: Work variable for IO unit number
32          CHARACTER*(MAX_LEN_MBUF) msgBuf
33          INTEGER iUnit
34    
35        NAMELIST /MYPACKAGE_PARM01/        NAMELIST /MYPACKAGE_PARM01/
36       &       myPa_MNC,       &       myPa_MNC,
37       &       myPa_StaV_Cgrid, myPa_Tend_Cgrid,       &       myPa_StaV_Cgrid, myPa_Tend_Cgrid,
# Line 39  CEOP Line 45  CEOP
45       &       myPa_VelUFile,   myPa_VelVFile,       &       myPa_VelUFile,   myPa_VelVFile,
46       &       myPa_Surf1File,  myPa_Surf2File       &       myPa_Surf1File,  myPa_Surf2File
47    
 C     === Local variables ===  
 C     msgBuf      - Informational/error meesage buffer  
 C     iUnit       - Work variable for IO unit number  
       CHARACTER*(MAX_LEN_MBUF) msgBuf  
       INTEGER iUnit  
   
48        _BEGIN_MASTER(myThid)        _BEGIN_MASTER(myThid)
49    
50  C--   Default values for MYPACKAGE  C--   Default values for MYPACKAGE
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22