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

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

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

revision 1.25 by adcroft, Thu Aug 16 17:12:24 2001 UTC revision 1.29 by cnh, Wed Sep 26 18:09:16 2001 UTC
# Line 3  C $Name$ Line 3  C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
5    
6    CBOP
7    C     !ROUTINE: SET_DEFAULTS
8    C     !INTERFACE:
9        SUBROUTINE SET_DEFAULTS(        SUBROUTINE SET_DEFAULTS(
10       O   viscArDefault, diffKrTDefault, diffKrSDefault,       O   viscArDefault, diffKrTDefault, diffKrSDefault,
11       O   hFacMinDrDefault, delRdefault, rkFacDefault,       O   hFacMinDrDefault, delRdefault, rkFacDefault,
12       I   myThid )       I   myThid )
 C     /==========================================================\  
 C     | SUBROUTINE SET_DEFAULTS                                  |  
 C     | o Routine to set model "parameters"                      |  
 C     |==========================================================|  
 C     | Notes:                                                   |  
 C     | ======                                                   |  
 C     | The present version of this routine is a place-holder.   |  
 C     | A production version needs to handle parameters from an  |  
 C     | external file and possibly reading in some initial field |  
 C     | values.                                                  |  
 C     \==========================================================/  
       IMPLICIT NONE  
13    
14    C     !DESCRIPTION: \bv
15    C     *==========================================================*
16    C     | SUBROUTINE SET_DEFAULTS                                  
17    C     | o Routine to set model "parameters"                      
18    C     *==========================================================*
19    C     | Notes:                                                    
20    C     | ======                                                    
21    C     | The present version of this routine is a place-holder.    
22    C     | A production version needs to handle parameters from an  
23    C     | external file and possibly reading in some initial field  
24    C     | values.                                                  
25    C     *==========================================================*
26    C     \ev
27    
28    C     !USES:
29          IMPLICIT NONE
30  C     === Global variables ===  C     === Global variables ===
31  #include "SIZE.h"  #include "SIZE.h"
32  #include "EEPARAMS.h"  #include "EEPARAMS.h"
33  #include "PARAMS.h"  #include "PARAMS.h"
34  #include "GRID.h"  #include "GRID.h"
35    
36    C     !INPUT/OUTPUT PARAMETERS:
37  C     === Routine arguments ===  C     === Routine arguments ===
38  C     myThid - Number of this instance of INI_PARMS  C     myThid - Number of this instance of INI_PARMS
39        INTEGER myThid        INTEGER myThid
# Line 36  C     myThid - Number of this instance o Line 44  C     myThid - Number of this instance o
44        _RL delRDefault(Nr)        _RL delRDefault(Nr)
45        _RS rkFacDefault        _RS rkFacDefault
46    
47    C     !LOCAL VARIABLES:
48  C     === Local variables ===  C     === Local variables ===
49  C     K, I, J - Loop counters  C     K, I, J - Loop counters
50        INTEGER K, I, J        INTEGER K, I, J
51    CEOP
52    
53  C--   Grid parameters  C--   Grid parameters
54  C     Vertical gridding  C     Vertical gridding
# Line 76  C--   Set default "physical" parameters Line 86  C--   Set default "physical" parameters
86        beta                = 1.D-11        beta                = 1.D-11
87        omega               = 2.D0 * PI / ( 3600.D0 * 24.D0 )        omega               = 2.D0 * PI / ( 3600.D0 * 24.D0 )
88        viscAh              = 0.D3        viscAh              = 0.D3
89          viscAstrain         = 0.D3
90          viscAtension        = 0.D3
91        diffKhT             = 0.D3        diffKhT             = 0.D3
92        diffKhS             = 0.D3        diffKhS             = 0.D3
93        viscArDefault       = 0.D-3        viscArDefault       = 0.D-3
# Line 134  C--   Set default "physical" parameters Line 146  C--   Set default "physical" parameters
146        tempAdvScheme       = 2        tempAdvScheme       = 2
147        saltAdvScheme       = 2        saltAdvScheme       = 2
148        tracerAdvScheme     = 2        tracerAdvScheme     = 2
149          multiDimAdvection   = .TRUE.
150    
151  C--   Atmospheric physical parameters (e.g.: EOS)  C--   Atmospheric physical parameters (e.g.: EOS)
152        atm_po =  1.D5        atm_po =  1.D5
# Line 162  C--   Time stepping parameters Line 175  C--   Time stepping parameters
175        pchkPtFreq        = deltaT*0        pchkPtFreq        = deltaT*0
176        chkPtFreq         = deltaT*0        chkPtFreq         = deltaT*0
177        dumpFreq          = deltaT*0        dumpFreq          = deltaT*0
178          diagFreq          = deltaT*0
179        monitorFreq       = -1.        monitorFreq       = -1.
180        taveFreq          = deltaT*0        taveFreq          = deltaT*0
181        writeStatePrec    = precFloat64        writeStatePrec    = precFloat64
Legend:
Removed from v.1.25  
changed lines
  Added in v.1.29
  ViewVC Help
Powered by ViewVC 1.1.22