/[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.69 by edhill, Tue Sep 7 21:32:10 2004 UTC revision 1.70 by edhill, Fri Sep 10 12:19:30 2004 UTC
# Line 3  C $Name$ Line 3  C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
5    
6    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
7  CBOP  CBOP
8  C     !ROUTINE: SET_DEFAULTS  C     !ROUTINE: SET_DEFAULTS
9  C     !INTERFACE:  C     !INTERFACE:
# Line 11  C     !INTERFACE: Line 12  C     !INTERFACE:
12       O   hFacMinDrDefault, delRdefault, rkFacDefault,       O   hFacMinDrDefault, delRdefault, rkFacDefault,
13       I   myThid )       I   myThid )
14    
15  C     !DESCRIPTION: \bv  C     !DESCRIPTION:
16  C     *==========================================================*  C     Routine to set model "parameter defaults".
 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     *==========================================================*  
 C     \ev  
17    
18  C     !USES:  C     !USES:
19        IMPLICIT NONE        IMPLICIT NONE
 C     === Global variables ===  
20  #include "SIZE.h"  #include "SIZE.h"
21  #include "EEPARAMS.h"  #include "EEPARAMS.h"
22  #include "PARAMS.h"  #include "PARAMS.h"
# Line 35  Cml#include "EOS.h" Line 24  Cml#include "EOS.h"
24  #include "GRID.h"  #include "GRID.h"
25    
26  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
 C     === Routine arguments ===  
27  C     myThid - Number of this instance of INI_PARMS  C     myThid - Number of this instance of INI_PARMS
28        INTEGER myThid        INTEGER myThid
29        _RL viscArDefault        _RL viscArDefault
# Line 46  C     myThid - Number of this instance o Line 34  C     myThid - Number of this instance o
34        _RS rkFacDefault        _RS rkFacDefault
35    
36  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
 C     === Local variables ===  
37  C     K, I, J - Loop counters  C     K, I, J - Loop counters
38        INTEGER K, I, J        INTEGER K, I, J
39  CEOP  CEOP
# Line 228  C--   Time stepping parameters Line 215  C--   Time stepping parameters
215        abEps             = 0.01        abEps             = 0.01
216        pchkPtFreq        = deltaT*0        pchkPtFreq        = deltaT*0
217        chkPtFreq         = deltaT*0        chkPtFreq         = deltaT*0
218          pickup_read_mdsio = .TRUE.
219          pickup_write_mdsio= .TRUE.
220          pickup_write_immed= .FALSE.
221        dumpFreq          = deltaT*0        dumpFreq          = deltaT*0
222        adjDumpFreq       = deltaT*0        adjDumpFreq       = deltaT*0
223        diagFreq          = deltaT*0        diagFreq          = deltaT*0
224          snapshot_mdsio    = .TRUE.
225        monitorFreq       = -1.        monitorFreq       = -1.
226        mon_iotype        = 1        monitor_mdsio     = .TRUE.
227        taveFreq          = deltaT*0        taveFreq          = deltaT*0
228          timeave_mdsio     = .TRUE.
229        tave_lastIter     = 0.5 _d 0        tave_lastIter     = 0.5 _d 0
230        writeStatePrec    = precFloat64        writeStatePrec    = precFloat64
231        writeBinaryPrec   = precFloat32        writeBinaryPrec   = precFloat32
# Line 251  C--   Time stepping parameters Line 243  C--   Time stepping parameters
243        externForcingCycle      = 0.        externForcingCycle      = 0.
244        tCyl              = 0.        tCyl              = 0.
245    
   
246  C--   Input files  C--   Input files
247        bathyFile       = ' '        bathyFile       = ' '
248        topoFile        = ' '        topoFile        = ' '
# Line 271  C--   Input files Line 262  C--   Input files
262        dQdTFile        = ' '        dQdTFile        = ' '
263        ploadFile       = ' '        ploadFile       = ' '
264        mdsioLocalDir   = ' '        mdsioLocalDir   = ' '
       DO k = 1,MAX_LEN_FNAM  
         the_run_name(k:k) = ' '  
       ENDDO  
265    
266  C  C
267        RETURN        RETURN
Legend:
Removed from v.1.69  
changed lines
  Added in v.1.70
  ViewVC Help
Powered by ViewVC 1.1.22