MOM6
mom_fixed_initialization Module Reference

Detailed Description

Initializes fixed aspects of the model, such as horizontal grid metrics, topography and Coriolis.

Functions/Subroutines

subroutine, public mom_initialize_fixed (G, US, OBC, PF, write_geom, output_dir)
 MOM_initialize_fixed sets up time-invariant quantities related to MOM6's horizontal grid, bathymetry, and the Coriolis parameter. More...
 
subroutine, public mom_initialize_topography (D, max_depth, G, PF, US)
 MOM_initialize_topography makes the appropriate call to set up the bathymetry. At this point the topography is in units of [m], but this can be changed later. More...
 

Function/Subroutine Documentation

◆ mom_initialize_fixed()

subroutine, public mom_fixed_initialization::mom_initialize_fixed ( type(dyn_horgrid_type), intent(inout)  G,
type(unit_scale_type), intent(in)  US,
type(ocean_obc_type), pointer  OBC,
type(param_file_type), intent(in)  PF,
logical, intent(in)  write_geom,
character(len=*), intent(in)  output_dir 
)

MOM_initialize_fixed sets up time-invariant quantities related to MOM6's horizontal grid, bathymetry, and the Coriolis parameter.

Parameters
[in,out]gThe ocean's grid structure.
[in]usA dimensional unit scaling type
obcOpen boundary structure.
[in]pfA structure indicating the open file to parse for model parameter values.
[in]write_geomIf true, write grid geometry files.
[in]output_dirThe directory into which to write files.

Definition at line 56 of file MOM_fixed_initialization.F90.

56  type(dyn_horgrid_type), intent(inout) :: G !< The ocean's grid structure.
57  type(unit_scale_type), intent(in) :: US !< A dimensional unit scaling type
58  type(ocean_OBC_type), pointer :: OBC !< Open boundary structure.
59  type(param_file_type), intent(in) :: PF !< A structure indicating the open file
60  !! to parse for model parameter values.
61  logical, intent(in) :: write_geom !< If true, write grid geometry files.
62  character(len=*), intent(in) :: output_dir !< The directory into which to write files.
63 
64  ! Local
65  character(len=200) :: inputdir ! The directory where NetCDF input files are.
66  character(len=200) :: config
67  character(len=40) :: mdl = "MOM_fixed_initialization" ! This module's name.
68  logical :: debug
69 ! This include declares and sets the variable "version".
70 #include "version_variable.h"
71 
72  call calltree_enter("MOM_initialize_fixed(), MOM_fixed_initialization.F90")
73  call log_version(pf, mdl, version, "")
74  call get_param(pf, mdl, "DEBUG", debug, default=.false.)
75 
76  call get_param(pf, mdl, "INPUTDIR", inputdir, &
77  "The directory in which input files are found.", default=".")
78  inputdir = slasher(inputdir)
79 
80  ! Set up the parameters of the physical domain (i.e. the grid), G
81  call set_grid_metrics(g, pf, us)
82 
83  ! Set up the bottom depth, G%bathyT either analytically or from file
84  ! This also sets G%max_depth based on the input parameter MAXIMUM_DEPTH,
85  ! or, if absent, is diagnosed as G%max_depth = max( G%D(:,:) )
86  call mom_initialize_topography(g%bathyT, g%max_depth, g, pf, us)
87 ! call rescale_dyn_horgrid_bathymetry(G, US%Z_to_m)
88 
89  ! To initialize masks, the bathymetry in halo regions must be filled in
90  call pass_var(g%bathyT, g%Domain)
91 
92  ! Determine the position of any open boundaries
93  call open_boundary_config(g, us, pf, obc)
94 
95  ! Make bathymetry consistent with open boundaries
96  call open_boundary_impose_normal_slope(obc, g, g%bathyT)
97 
98  ! This call sets masks that prohibit flow over any point interpreted as land
99  call initialize_masks(g, pf, us)
100 
101  ! Make OBC mask consistent with land mask
102  call open_boundary_impose_land_mask(obc, g, g%areaCu, g%areaCv, us)
103 
104  if (debug) then
105  call hchksum(g%bathyT, 'MOM_initialize_fixed: depth ', g%HI, haloshift=1, scale=us%Z_to_m)
106  call hchksum(g%mask2dT, 'MOM_initialize_fixed: mask2dT ', g%HI)
107  call uvchksum('MOM_initialize_fixed: mask2dC[uv]', g%mask2dCu, &
108  g%mask2dCv, g%HI)
109  call qchksum(g%mask2dBu, 'MOM_initialize_fixed: mask2dBu ', g%HI)
110  endif
111 
112  ! Modulate geometric scales according to geography.
113  call get_param(pf, mdl, "CHANNEL_CONFIG", config, &
114  "A parameter that determines which set of channels are \n"//&
115  "restricted to specific widths. Options are:\n"//&
116  " \t none - All channels have the grid width.\n"//&
117  " \t global_1deg - Sets 16 specific channels appropriate \n"//&
118  " \t\t for a 1-degree model, as used in CM2G.\n"//&
119  " \t list - Read the channel locations and widths from a \n"//&
120  " \t\t text file, like MOM_channel_list in the MOM_SIS \n"//&
121  " \t\t test case.\n"//&
122  " \t file - Read open face widths everywhere from a \n"//&
123  " \t\t NetCDF file on the model grid.", &
124  default="none")
125  select case ( trim(config) )
126  case ("none")
127  case ("list") ; call reset_face_lengths_list(g, pf, us)
128  case ("file") ; call reset_face_lengths_file(g, pf, us)
129  case ("global_1deg") ; call reset_face_lengths_named(g, pf, trim(config), us)
130  case default ; call mom_error(fatal, "MOM_initialize_fixed: "// &
131  "Unrecognized channel configuration "//trim(config))
132  end select
133 
134  ! This call sets the topography at velocity points.
135  if (g%bathymetry_at_vel) then
136  call get_param(pf, mdl, "VELOCITY_DEPTH_CONFIG", config, &
137  "A string that determines how the topography is set at "//&
138  "velocity points. This may be 'min' or 'max'.", &
139  default="max")
140  select case ( trim(config) )
141  case ("max") ; call set_velocity_depth_max(g)
142  case ("min") ; call set_velocity_depth_min(g)
143  case default ; call mom_error(fatal, "MOM_initialize_fixed: "// &
144  "Unrecognized velocity depth configuration "//trim(config))
145  end select
146  endif
147 
148 ! Calculate the value of the Coriolis parameter at the latitude !
149 ! of the q grid points [s-1].
150  call mom_initialize_rotation(g%CoriolisBu, g, pf, us=us)
151 ! Calculate the components of grad f (beta)
152  call mom_calculate_grad_coriolis(g%dF_dx, g%dF_dy, g, us=us)
153  if (debug) then
154  call qchksum(g%CoriolisBu, "MOM_initialize_fixed: f ", g%HI, scale=us%s_to_T)
155  call hchksum(g%dF_dx, "MOM_initialize_fixed: dF_dx ", g%HI, scale=us%m_to_L*us%s_to_T)
156  call hchksum(g%dF_dy, "MOM_initialize_fixed: dF_dy ", g%HI, scale=us%m_to_L*us%s_to_T)
157  endif
158 
159  call initialize_grid_rotation_angle(g, pf)
160 
161 ! Compute global integrals of grid values for later use in scalar diagnostics !
162  call compute_global_grid_integrals(g, us=us)
163 
164 ! Write out all of the grid data used by this run.
165  if (write_geom) call write_ocean_geometry_file(g, pf, output_dir, us=us)
166 
167  call calltree_leave('MOM_initialize_fixed()')
168 

References mom_error_handler::calltree_enter(), mom_error_handler::calltree_leave(), mom_shared_initialization::compute_global_grid_integrals(), mom_grid_initialize::initialize_masks(), mom_initialize_topography(), mom_open_boundary::open_boundary_impose_land_mask(), mom_grid_initialize::set_grid_metrics(), and mom_shared_initialization::write_ocean_geometry_file().

Referenced by mom::initialize_mom().

Here is the call graph for this function:
Here is the caller graph for this function:

◆ mom_initialize_topography()

subroutine, public mom_fixed_initialization::mom_initialize_topography ( real, dimension(g%isd:g%ied,g%jsd:g%jed), intent(out)  D,
real, intent(out)  max_depth,
type(dyn_horgrid_type), intent(in)  G,
type(param_file_type), intent(in)  PF,
type(unit_scale_type), intent(in), optional  US 
)

MOM_initialize_topography makes the appropriate call to set up the bathymetry. At this point the topography is in units of [m], but this can be changed later.

Parameters
[in]gThe dynamic horizontal grid type
[out]dOcean bottom depth [m]
[in]pfParameter file structure
[out]max_depthMaximum depth of model [m]
[in]usA dimensional unit scaling type

Definition at line 174 of file MOM_fixed_initialization.F90.

174  type(dyn_horgrid_type), intent(in) :: G !< The dynamic horizontal grid type
175  real, dimension(G%isd:G%ied,G%jsd:G%jed), &
176  intent(out) :: D !< Ocean bottom depth [m]
177  type(param_file_type), intent(in) :: PF !< Parameter file structure
178  real, intent(out) :: max_depth !< Maximum depth of model [m]
179  type(unit_scale_type), optional, intent(in) :: US !< A dimensional unit scaling type
180 
181  ! This subroutine makes the appropriate call to set up the bottom depth.
182  ! This is a separate subroutine so that it can be made public and shared with
183  ! the ice-sheet code or other components.
184 
185  ! Local variables
186  real :: m_to_Z, Z_to_m ! Dimensional rescaling factors
187  character(len=40) :: mdl = "MOM_initialize_topography" ! This subroutine's name.
188  character(len=200) :: config
189 
190  m_to_z = 1.0 ; if (present(us)) m_to_z = us%m_to_Z
191  z_to_m = 1.0 ; if (present(us)) z_to_m = us%Z_to_m
192 
193  call get_param(pf, mdl, "TOPO_CONFIG", config, &
194  "This specifies how bathymetry is specified: \n"//&
195  " \t file - read bathymetric information from the file \n"//&
196  " \t\t specified by (TOPO_FILE).\n"//&
197  " \t flat - flat bottom set to MAXIMUM_DEPTH. \n"//&
198  " \t bowl - an analytically specified bowl-shaped basin \n"//&
199  " \t\t ranging between MAXIMUM_DEPTH and MINIMUM_DEPTH. \n"//&
200  " \t spoon - a similar shape to 'bowl', but with an vertical \n"//&
201  " \t\t wall at the southern face. \n"//&
202  " \t halfpipe - a zonally uniform channel with a half-sine \n"//&
203  " \t\t profile in the meridional direction. \n"//&
204  " \t benchmark - use the benchmark test case topography. \n"//&
205  " \t Neverland - use the Neverland test case topography. \n"//&
206  " \t DOME - use a slope and channel configuration for the \n"//&
207  " \t\t DOME sill-overflow test case. \n"//&
208  " \t ISOMIP - use a slope and channel configuration for the \n"//&
209  " \t\t ISOMIP test case. \n"//&
210  " \t DOME2D - use a shelf and slope configuration for the \n"//&
211  " \t\t DOME2D gravity current/overflow test case. \n"//&
212  " \t Kelvin - flat but with rotated land mask.\n"//&
213  " \t seamount - Gaussian bump for spontaneous motion test case.\n"//&
214  " \t dumbbell - Sloshing channel with reservoirs on both ends.\n"//&
215  " \t shelfwave - exponential slope for shelfwave test case.\n"//&
216  " \t Phillips - ACC-like idealized topography used in the Phillips config.\n"//&
217  " \t dense - Denmark Strait-like dense water formation and overflow.\n"//&
218  " \t USER - call a user modified routine.", &
219  fail_if_missing=.true.)
220  max_depth = -1.e9*m_to_z ; call read_param(pf, "MAXIMUM_DEPTH", max_depth, scale=m_to_z)
221  select case ( trim(config) )
222  case ("file"); call initialize_topography_from_file(d, g, pf, us)
223  case ("flat"); call initialize_topography_named(d, g, pf, config, max_depth, us)
224  case ("spoon"); call initialize_topography_named(d, g, pf, config, max_depth, us)
225  case ("bowl"); call initialize_topography_named(d, g, pf, config, max_depth, us)
226  case ("halfpipe"); call initialize_topography_named(d, g, pf, config, max_depth, us)
227  case ("DOME"); call dome_initialize_topography(d, g, pf, max_depth, us)
228  case ("ISOMIP"); call isomip_initialize_topography(d, g, pf, max_depth, us)
229  case ("benchmark"); call benchmark_initialize_topography(d, g, pf, max_depth, us)
230  case ("Neverland"); call neverland_initialize_topography(d, g, pf, max_depth)
231  case ("DOME2D"); call dome2d_initialize_topography(d, g, pf, max_depth)
232  case ("Kelvin"); call kelvin_initialize_topography(d, g, pf, max_depth, us)
233  case ("sloshing"); call sloshing_initialize_topography(d, g, pf, max_depth)
234  case ("seamount"); call seamount_initialize_topography(d, g, pf, max_depth)
235  case ("dumbbell"); call dumbbell_initialize_topography(d, g, pf, max_depth)
236  case ("shelfwave"); call shelfwave_initialize_topography(d, g, pf, max_depth, us)
237  case ("Phillips"); call phillips_initialize_topography(d, g, pf, max_depth, us)
238  case ("dense"); call dense_water_initialize_topography(d, g, pf, max_depth)
239  case ("USER"); call user_initialize_topography(d, g, pf, max_depth, us)
240  case default ; call mom_error(fatal,"MOM_initialize_topography: "// &
241  "Unrecognized topography setup '"//trim(config)//"'")
242  end select
243  if (max_depth>0.) then
244  call log_param(pf, mdl, "MAXIMUM_DEPTH", max_depth*z_to_m, &
245  "The maximum depth of the ocean.", units="m")
246  else
247  max_depth = diagnosemaximumdepth(d,g)
248  call log_param(pf, mdl, "!MAXIMUM_DEPTH", max_depth*z_to_m, &
249  "The (diagnosed) maximum depth of the ocean.", units="m")
250  endif
251  if (trim(config) /= "DOME") then
252  call limit_topography(d, g, pf, max_depth, us)
253  endif
254 

References benchmark_initialization::benchmark_initialize_topography(), dense_water_initialization::dense_water_initialize_topography(), dome2d_initialization::dome2d_initialize_topography(), dome_initialization::dome_initialize_topography(), dumbbell_initialization::dumbbell_initialize_topography(), isomip_initialization::isomip_initialize_topography(), kelvin_initialization::kelvin_initialize_topography(), neverland_initialization::neverland_initialize_topography(), phillips_initialization::phillips_initialize_topography(), seamount_initialization::seamount_initialize_topography(), shelfwave_initialization::shelfwave_initialize_topography(), sloshing_initialization::sloshing_initialize_topography(), and user_initialization::user_initialize_topography().

Referenced by mom_oda_driver_mod::init_oda(), and mom_initialize_fixed().

Here is the call graph for this function:
Here is the caller graph for this function: