/[MITgcm]/MITgcm/model/src/ini_parms.F
ViewVC logotype

Diff of /MITgcm/model/src/ini_parms.F

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

revision 1.229 by gforget, Wed Feb 17 00:21:07 2010 UTC revision 1.230 by gforget, Wed Feb 17 21:16:10 2010 UTC
# Line 1318  C     Check for retired parameters still Line 1318  C     Check for retired parameters still
1318         CALL PRINT_ERROR( msgBuf, myThid )         CALL PRINT_ERROR( msgBuf, myThid )
1319        ENDIF        ENDIF
1320    
1321    C     Check for relaxation term:
1322           IF ( (tauThetaClimRelax.GT.0.).AND.
1323         &      (thetaClimFile.EQ.' ') ) THEN
1324             WRITE(msgBuf,'(A)')
1325         &   'S/R INI_PARMS: tauThetaClimRelax > 0 but'
1326             CALL PRINT_ERROR( msgBuf, myThid )
1327             WRITE(msgBuf,'(A)')
1328         &   'S/R INI_PARMS: thetaClimFile is undefined'
1329             CALL PRINT_ERROR( msgBuf, myThid )
1330             STOP 'ABNORMAL END: S/R INI_PARMS'
1331           ENDIF
1332           IF ( (tauSaltClimRelax.GT.0.).AND.
1333         &      (saltClimFile.EQ.' ') ) THEN
1334             WRITE(msgBuf,'(A)')
1335         &   'S/R INI_PARMS: tauSaltClimRelax > 0 but'
1336             CALL PRINT_ERROR( msgBuf, myThid )
1337             WRITE(msgBuf,'(A)')
1338         &   'S/R INI_PARMS: saltClimFile is undefined'
1339             CALL PRINT_ERROR( msgBuf, myThid )
1340             STOP 'ABNORMAL END: S/R INI_PARMS'
1341           ENDIF
1342    
1343  C--   Set Units conversion factor required to incorporate  C--   Set Units conversion factor required to incorporate
1344  C     surface forcing into z-p isomorphic equations:  C     surface forcing into z-p isomorphic equations:
1345  C     mass2rUnit: from mass per unit area [kg/m2] to r-coordinate (z:=1/rho;p:=g)  C     mass2rUnit: from mass per unit area [kg/m2] to r-coordinate (z:=1/rho;p:=g)
Legend:
Removed from v.1.229  
changed lines
  Added in v.1.230
  ViewVC Help
Powered by ViewVC 1.1.22