mom_pressureforce_mont::pressureforce_mont_cs integer integer mom_pressureforce_mont::pressureforce_mont_cs::id_pfu_bc id_pfu_bc = -1 Diagnostic IDs. integer integer mom_pressureforce_mont::pressureforce_mont_cs::id_pfv_bc id_pfv_bc = -1 Diagnostic IDs. integer integer mom_pressureforce_mont::pressureforce_mont_cs::id_e_tidal id_e_tidal = -1 Diagnostic IDs. logical logical mom_pressureforce_mont::pressureforce_mont_cs::tides tides If true, apply tidal momentum forcing. real real mom_pressureforce_mont::pressureforce_mont_cs::rho0 rho0 The density used in the Boussinesq approximation [R ~> kg m-3]. real real mom_pressureforce_mont::pressureforce_mont_cs::gfs_scale gfs_scale Ratio between gravity applied to top interface and the gravitational acceleration of the planet [nondim]. Usually this ratio is 1. type(time_type), pointer type(time_type), pointer mom_pressureforce_mont::pressureforce_mont_cs::time time => NULL() A pointer to the ocean model's clock. type(diag_ctrl), pointer type(diag_ctrl), pointer mom_pressureforce_mont::pressureforce_mont_cs::diag diag => NULL() A structure that is used to regulate the timing of diagnostic output. real, dimension(:,:,:), pointer real, dimension(:,:,:), pointer mom_pressureforce_mont::pressureforce_mont_cs::pfu_bc pfu_bc => NULL() Zonal accelerations due to pressure gradients deriving from density gradients within layers [L T-2 ~> m s-2]. real, dimension(:,:,:), pointer real, dimension(:,:,:), pointer mom_pressureforce_mont::pressureforce_mont_cs::pfv_bc pfv_bc => NULL() Meridional accelerations due to pressure gradients deriving from density gradients within layers [L T-2 ~> m s-2]. type(tidal_forcing_cs), pointer type(tidal_forcing_cs), pointer mom_pressureforce_mont::pressureforce_mont_cs::tides_csp tides_csp => NULL() The tidal forcing control structure. Control structure for the Montgomery potential form of pressure gradient. real logical mom_pressureforce_mont::pressureforce_mont_cs tides time diag tides_csp id_e_tidal id_pfv_bc id_pfu_bc pfv_bc pfu_bc rho0 gfs_scale time_type diag_ctrl integer type(tidal_forcing_cs), pointer mom_pressureforce_mont::pressureforce_mont_csdiag mom_pressureforce_mont::pressureforce_mont_csgfs_scale mom_pressureforce_mont::pressureforce_mont_csid_e_tidal mom_pressureforce_mont::pressureforce_mont_csid_pfu_bc mom_pressureforce_mont::pressureforce_mont_csid_pfv_bc mom_pressureforce_mont::pressureforce_mont_cspfu_bc mom_pressureforce_mont::pressureforce_mont_cspfv_bc mom_pressureforce_mont::pressureforce_mont_csrho0 mom_pressureforce_mont::pressureforce_mont_cstides mom_pressureforce_mont::pressureforce_mont_cstides_csp mom_pressureforce_mont::pressureforce_mont_cstime