/[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.117 by jmc, Thu Jul 13 02:58:03 2006 UTC revision 1.118 by jmc, Tue Nov 28 22:47:13 2006 UTC
# Line 21  C     !USES: Line 21  C     !USES:
21  #include "EEPARAMS.h"  #include "EEPARAMS.h"
22  #include "PARAMS.h"  #include "PARAMS.h"
23  Cml#include "EOS.h"  Cml#include "EOS.h"
24  #include "GRID.h"  c#include "GRID.h"
25    
26  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
27  C     myThid - Number of this instance of INI_PARMS  C     myThid - Number of this instance of INI_PARMS
# Line 39  C     K, I, J - Loop counters Line 39  C     K, I, J - Loop counters
39  CEOP  CEOP
40    
41  C--   Grid parameters  C--   Grid parameters
42  C     Vertical gridding  C-    Vertical gridding
43          delRFile            = ' '
44          delRcFile           = ' '
45        rkFacDefault        = 1. _d 0        rkFacDefault        = 1. _d 0
46        horiVertRatio       = 1. _d 0        horiVertRatio       = 1. _d 0
47        Ro_SeaLevel         = 0.        Ro_SeaLevel         = 0.
# Line 49  C     Vertical gridding Line 51  C     Vertical gridding
51        DO k=1,Nr+1        DO k=1,Nr+1
52         delRc(k)           = UNSET_RL         delRc(k)           = UNSET_RL
53        ENDDO        ENDDO
54    C-    vertical profile
55          tRefFile            = ' '
56          sRefFile            = ' '
57          rhoRefFile          = ' '
58    
59  C     Horizontal gridding  C-    Horizontal gridding
60        delXFile            = ' '        delXFile            = ' '
61        delYFile            = ' '        delYFile            = ' '
62        horizGridFile       = ' '        horizGridFile       = ' '
# Line 77  C     Coriolis map: Line 83  C     Coriolis map:
83        useSphereF          = .TRUE.        useSphereF          = .TRUE.
84        use3dCoriolis       = .TRUE.        use3dCoriolis       = .TRUE.
85    
   
86  C--   Set default "physical" parameters  C--   Set default "physical" parameters
87        nh_Am2              = 1. _d 0        nh_Am2              = 1. _d 0
88        gravity             = 9.81 _d 0        gravity             = 9.81 _d 0
Legend:
Removed from v.1.117  
changed lines
  Added in v.1.118
  ViewVC Help
Powered by ViewVC 1.1.22