/[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.166 by baylor, Fri Sep 16 19:33:05 2005 UTC revision 1.167 by jmc, Mon Sep 19 22:53:12 2005 UTC
# Line 114  C     tempDiffusion :: diffusion of temp Line 114  C     tempDiffusion :: diffusion of temp
114  C     zonal_filt_lat :: Moved to package "zonal_filt"  C     zonal_filt_lat :: Moved to package "zonal_filt"
115  C     groundAtK1 :: put the surface(k=1) at the ground (replaced by usingPCoords)  C     groundAtK1 :: put the surface(k=1) at the ground (replaced by usingPCoords)
116  C     rkFac      :: removed from namelist ; replaced by -rkSign  C     rkFac      :: removed from namelist ; replaced by -rkSign
117    C     viscAstrain  :: replaced by standard viscosity coeff & useStrainTensionVisc
118    C     viscAtension :: replaced by standard viscosity coeff & useStrainTensionVisc
119  C     nRetired :: Counter used to trap gracefully namelists containing "retired"  C     nRetired :: Counter used to trap gracefully namelists containing "retired"
120  C              :: parameters. These are parameters that are either no-longer used  C              :: parameters. These are parameters that are either no-longer used
121  C                 or that have moved to a different input file and/or namelist.  C                 or that have moved to a different input file and/or namelist.
# Line 122  C                 or that have moved to Line 124  C                 or that have moved to
124        _RL trac_EvPrRn        _RL trac_EvPrRn
125        _RL zonal_filt_lat        _RL zonal_filt_lat
126        _RL rkFac        _RL rkFac
127          _RL viscAstrain, viscAtension
128        LOGICAL groundAtK1        LOGICAL groundAtK1
129        INTEGER nRetired        INTEGER nRetired
130    
# Line 138  C--   Continuous equation parameters Line 141  C--   Continuous equation parameters
141       & viscAhD, viscAhZ, viscA4D, viscA4Z,       & viscAhD, viscAhZ, viscA4D, viscA4Z,
142       & viscA4, viscA4W,       & viscA4, viscA4W,
143       & viscA4Max, viscA4Grid, viscA4GridMax, viscA4GridMin,       & viscA4Max, viscA4Grid, viscA4GridMax, viscA4GridMin,
144       & viscAz,  cosPower,       & viscAz,  cosPower, viscAstrain, viscAtension,
145       & diffKhT, diffKzT, diffK4T,       & diffKhT, diffKzT, diffK4T,
146       & diffKhS, diffKzS, diffK4S,       & diffKhS, diffKzS, diffK4S,
147       & tRef, sRef, eosType, integr_GeoPot, selectFindRoSurf,       & tRef, sRef, eosType, integr_GeoPot, selectFindRoSurf,
# Line 247  C--   Initialise retired parameters to u Line 250  C--   Initialise retired parameters to u
250        gravitySign     = UNSET_RL        gravitySign     = UNSET_RL
251        rkFac           = UNSET_RL        rkFac           = UNSET_RL
252        groundAtK1      = .FALSE.        groundAtK1      = .FALSE.
253          viscAstrain     = UNSET_RL
254          viscAtension    = UNSET_RL
255    
256  C--   Open the parameter file  C--   Open the parameter file
257  #ifdef TARGET_BGL  #ifdef TARGET_BGL
# Line 674  C     Check for retired parameters still Line 679  C     Check for retired parameters still
679       &  ' => set diffusivity to zero'       &  ' => set diffusivity to zero'
680         CALL PRINT_ERROR( msgBuf , myThid)         CALL PRINT_ERROR( msgBuf , myThid)
681        ENDIF        ENDIF
682          IF ( viscAstrain .NE. UNSET_RL ) THEN
683           nRetired = nRetired+1
684           WRITE(msgBuf,'(A,A)')
685         &  'S/R INI_PARMS: "viscAstrain" ',
686         &  'is no longer allowed in file "data"'
687           CALL PRINT_ERROR( msgBuf , myThid)
688           WRITE(msgBuf,'(A,A)') 'S/R INI_PARMS: to use Strain & Tension',
689         &  ' formulation => set useStrainTensionVisc to TRUE'
690           CALL PRINT_ERROR( msgBuf , myThid)
691          ENDIF
692          IF ( viscAtension .NE. UNSET_RL ) THEN
693           nRetired = nRetired+1
694           WRITE(msgBuf,'(A,A)')
695         &  'S/R INI_PARMS: "viscAtension" ',
696         &  'is no longer allowed in file "data"'
697           CALL PRINT_ERROR( msgBuf , myThid)
698           WRITE(msgBuf,'(A,A)') 'S/R INI_PARMS: to use Strain & Tension',
699         &  ' formulation => set useStrainTensionVisc to TRUE'
700           CALL PRINT_ERROR( msgBuf , myThid)
701          ENDIF
702    
703  C--   Elliptic solver parameters  C--   Elliptic solver parameters
704        WRITE(msgBuf,'(A)') 'S/R INI_PARMS ; starts to read PARM02'        WRITE(msgBuf,'(A)') 'S/R INI_PARMS ; starts to read PARM02'
# Line 1147  C--   Check whether any retired paramete Line 1172  C--   Check whether any retired paramete
1172  C--   Stop if they were  C--   Stop if they were
1173        IF ( nRetired .GT. 0 ) THEN            IF ( nRetired .GT. 0 ) THEN    
1174         WRITE(msgBuf,'(A)')         WRITE(msgBuf,'(A)')
1175       &  'Error reading '       &  'Error reading parameter file "data"'
        CALL PRINT_ERROR( msgBuf , 1)  
        WRITE(msgBuf,'(A)')  
      &  'parameter file "data"'  
1176         CALL PRINT_ERROR( msgBuf , 1)         CALL PRINT_ERROR( msgBuf , 1)
1177         WRITE(msgBuf,'(A)')         WRITE(msgBuf,'(A)')
1178       &  'some out of date parameters were found in the namelist'       &  'some out of date parameters were found in the namelist'
Legend:
Removed from v.1.166  
changed lines
  Added in v.1.167
  ViewVC Help
Powered by ViewVC 1.1.22