/[MITgcm]/MITgcm_contrib/jscott/pkg_atm2d/atm2d_readparms.F
ViewVC logotype

Diff of /MITgcm_contrib/jscott/pkg_atm2d/atm2d_readparms.F

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

revision 1.2 by jscott, Tue Aug 22 20:21:38 2006 UTC revision 1.3 by jscott, Tue May 1 19:38:47 2007 UTC
# Line 6  C Line 6  C
6  C     /==========================================================\  C     /==========================================================\
7  C     | SUBROUTINE ATM2D_READPARMS                               |  C     | SUBROUTINE ATM2D_READPARMS                               |
8  C     |==========================================================|  C     |==========================================================|
9  C     | Initialize  1DTO2D  parameters, read in data.1dto2d      |  C     | Initialize ATM2D parameters, read in data.atm2d          |
10  C     \==========================================================/  C     \==========================================================/
11        IMPLICIT NONE        IMPLICIT NONE
12    
# Line 43  C     msgBuf      - Informational/error Line 43  C     msgBuf      - Informational/error
43  C     iUnit       - Work variable for IO unit number  C     iUnit       - Work variable for IO unit number
44        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
45        INTEGER iUnit        INTEGER iUnit
46        INTEGER j        INTEGER j     ! loop counter
47    
48    
49        WRITE(msgBuf,'(A)') ' ATM2D_READPARMS: opening data.atm2d'        WRITE(msgBuf,'(A)') ' ATM2D_READPARMS: opening data.atm2d'
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22