/[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.11 by heimbach, Mon Sep 11 20:51:48 2000 UTC revision 1.14 by adcroft, Mon Feb 5 19:27:38 2001 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2    C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
5    
# Line 44  C--   Grid parameters Line 45  C--   Grid parameters
45  C     Vertical gridding  C     Vertical gridding
46        rkFacDefault         = 1.D0        rkFacDefault         = 1.D0
47        horiVertRatio        = 1.D0        horiVertRatio        = 1.D0
48          Ro_SeaLevel = 0.
49        DO k=1,Nr        DO k=1,Nr
50         delRdefault(k) = 0.         delRdefault(k) = 0.
51        ENDDO        ENDDO
# Line 92  C--   Set default "physical" parameters Line 94  C--   Set default "physical" parameters
94        rigidLid            = .FALSE.        rigidLid            = .FALSE.
95        hFacMin             = 1.D0        hFacMin             = 1.D0
96        hFacMinDrDefault    = 0.D0        hFacMinDrDefault    = 0.D0
97          staggerTimeStep     = .FALSE.
98        momViscosity        = .TRUE.        momViscosity        = .TRUE.
99        momAdvection        = .TRUE.        momAdvection        = .TRUE.
100        momForcing          = .TRUE.        momForcing          = .TRUE.
# Line 103  C--   Set default "physical" parameters Line 106  C--   Set default "physical" parameters
106        metricTerms         = .FALSE.        metricTerms         = .FALSE.
107        implicitDiffusion   = .FALSE.        implicitDiffusion   = .FALSE.
108        implicitViscosity   = .FALSE.        implicitViscosity   = .FALSE.
       openBoundaries      = .FALSE.  
109        nonHydrostatic      = .FALSE.        nonHydrostatic      = .FALSE.
110        globalFiles         = .FALSE.        globalFiles         = .FALSE.
111        allowFreezing       = .FALSE.        allowFreezing       = .FALSE.
112        ivdc_kappa          = 0.D0        ivdc_kappa          = 0.D0
113          groundAtK1          = .FALSE.
114          nShap               = 0
115          zonal_filt_lat      = 90.
116          zonal_filt_sinpow   = 2
117          zonal_filt_cospow   = 2
118          bottomDragLinear    = 0.
119          bottomDragQuadratic = 0.
120    
121  C--   Elliptic solver parameters  C--   Elliptic solver parameters
122        cg2dMaxIters       = 150        cg2dMaxIters       = 150
# Line 159  C--   Input files Line 168  C--   Input files
168        vVelInitFile    = ' '        vVelInitFile    = ' '
169        pSurfInitFile   = ' '        pSurfInitFile   = ' '
170    
 C--   OBCS  
       DO I=1,Nx  
        OB_Jnorth(I)=0  
        OB_Jsouth(I)=0  
       ENDDO  
       DO J=1,Ny  
        OB_Ieast(J)=0  
        OB_Iwest(J)=0  
       ENDDO  
   
171  C  C
172        RETURN        RETURN
173        END        END
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22