/[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.94 by jmc, Tue Mar 18 14:37:33 2003 UTC revision 1.95 by jmc, Thu Apr 17 13:16:23 2003 UTC
# Line 135  C--   Continuous equation parameters Line 135  C--   Continuous equation parameters
135       & readPickupWithTracer, writePickupWithTracer,       & readPickupWithTracer, writePickupWithTracer,
136       & tempAdvScheme, saltAdvScheme, tracerAdvScheme,       & tempAdvScheme, saltAdvScheme, tracerAdvScheme,
137       & multiDimAdvection, useEnergyConservingCoriolis,       & multiDimAdvection, useEnergyConservingCoriolis,
138       & useJamartWetPoints, useNHMTerms,       & useCDscheme, useJamartWetPoints, useNHMTerms,
139       & useRealFreshWaterFlux, convertFW2Salt,       & useRealFreshWaterFlux, convertFW2Salt,
140       & temp_EvPrRn, salt_EvPrRn, trac_EvPrRn,       & temp_EvPrRn, salt_EvPrRn, trac_EvPrRn,
141       & zonal_filt_lat       & zonal_filt_lat
# Line 565  C     o Convection frequency Line 565  C     o Convection frequency
565         CALL PRINT_ERROR( msgBuf , myThid)         CALL PRINT_ERROR( msgBuf , myThid)
566         STOP 'ABNORMAL END: S/R INI_PARMS'         STOP 'ABNORMAL END: S/R INI_PARMS'
567        ENDIF        ENDIF
568  C     o CD coupling        IF (useCDscheme) THEN
569        IF ( tauCD .EQ. 0.D0 ) THEN  C     o CD coupling (CD scheme):
570          tauCD = deltaTmom          IF ( tauCD .EQ. 0.D0 ) tauCD = deltaTmom
571        ENDIF          IF ( rCD .LT. 0. ) rCD = 1. _d 0 - deltaTMom/tauCD
       IF ( rCD .LT. 0. ) THEN  
        rCD = 1. - deltaTMom/tauCD  
572        ENDIF        ENDIF
573  C     o Temperature climatology relaxation time scale  C     o Temperature climatology relaxation time scale
574        IF ( tauThetaClimRelax .EQ. 0.D0 ) THEN        IF ( tauThetaClimRelax .EQ. 0.D0 ) THEN
Legend:
Removed from v.1.94  
changed lines
  Added in v.1.95
  ViewVC Help
Powered by ViewVC 1.1.22