/[MITgcm]/MITgcm/pkg/regrid/regrid_readparms.F
ViewVC logotype

Diff of /MITgcm/pkg/regrid/regrid_readparms.F

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

revision 1.1 by edhill, Tue Aug 15 04:05:48 2006 UTC revision 1.2 by jmc, Wed May 28 00:13:16 2014 UTC
# Line 37  CEOP Line 37  CEOP
37       &     regrid_ngrids, regrid_fbname_in,       &     regrid_ngrids, regrid_fbname_in,
38       &     regrid_nout       &     regrid_nout
39    
40    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
41    
42          IF ( .NOT.useREGRID ) THEN
43    C-    pkg REGRID is not used
44            _BEGIN_MASTER(myThid)
45    C-    Track pkg activation status:
46    C     print a (weak) warning if data.regrid is found
47             CALL PACKAGES_UNUSED_MSG( 'useREGRID', ' ', ' ' )
48            _END_MASTER(myThid)
49            RETURN
50          ENDIF
51    
52        _BEGIN_MASTER(myThid)        _BEGIN_MASTER(myThid)
53    
54        DO i = 1,MAX_LEN_FNAM        DO i = 1,MAX_LEN_FNAM
# Line 52  C     Default values for REGRID Line 64  C     Default values for REGRID
64          REGRID_fbname_out(i)(1:MAX_LEN_FNAM) = blank(1:MAX_LEN_FNAM)          REGRID_fbname_out(i)(1:MAX_LEN_FNAM) = blank(1:MAX_LEN_FNAM)
65          regrid_nout(i) = 0          regrid_nout(i) = 0
66        ENDDO        ENDDO
67          
68        WRITE(msgBuf,'(A)') 'REGRID_READPARMS: opening data.regrid'        WRITE(msgBuf,'(A)') 'REGRID_READPARMS: opening data.regrid'
69        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
70       &                    SQUEEZE_RIGHT , 1)       &                    SQUEEZE_RIGHT , 1)
# Line 63  C     Default values for REGRID Line 75  C     Default values for REGRID
75    
76  C     Read parameters from open data file  C     Read parameters from open data file
77        READ(UNIT=iUnit,NML=REGRID_PARM01)        READ(UNIT=iUnit,NML=REGRID_PARM01)
78        WRITE(msgBuf,'(A)')        WRITE(msgBuf,'(A)')
79       &     'REGRID_READPARMS: finished reading data.regrid'       &     'REGRID_READPARMS: finished reading data.regrid'
80        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
81       &     SQUEEZE_RIGHT , 1)       &     SQUEEZE_RIGHT , 1)
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22