FE-Project
Loading...
Searching...
No Matches
mod_ocean_vars Module Reference

module Ocean / Variables More...

Data Types

type  oceanvars
 Derived type to manage variables with ocean component. More...

Functions/Subroutines

subroutine, public oceanvars_getlocalmeshprgvars (domid, mesh, prgvars_list, auxvars2d_list, u, v, w, therm, salt, sfc_temp, sfc_alb_ir_dir, sfc_alb_ir_dif, sfc_alb_nir_dir, sfc_alb_nir_dif, sfc_alb_vis_dir, sfc_alb_vis_dif, lcmesh3d)

Variables

integer, parameter, public prgvar_therm_id = 1
integer, parameter, public prgvar_drhot_id = 1
integer, parameter, public prgvar_salt_id = 2
integer, parameter, public prgvar_w_id = 3
integer, parameter, public prgvar_u_id = 4
integer, parameter, public prgvar_v_id = 5
integer, parameter, public prgvar_scalar_num = 3
integer, parameter, public prgvar_hvec_num = 1
integer, parameter, public prgvar_num = 5
integer, parameter, public phytend_u_id = 1
integer, parameter, public phytend_v_id = 2
integer, parameter, public phytend_w_id = 3
integer, parameter, public phytend_therm_id = 4
integer, parameter, public phytend_salt_id = 5
integer, parameter, public phytend_rhoh_id = 6
integer, parameter, public phytend_num = 6
integer, parameter, public auxvar2d_sfc_temp_id = 1
integer, parameter, public auxvar2d_sfc_alb_ir_dir_id = 2
integer, parameter, public auxvar2d_sfc_alb_ir_dif_id = 3
integer, parameter, public auxvar2d_sfc_alb_nir_dir_id = 4
integer, parameter, public auxvar2d_sfc_alb_nir_dif_id = 5
integer, parameter, public auxvar2d_sfc_alb_vis_dir_id = 6
integer, parameter, public auxvar2d_sfc_alb_vis_dif_id = 7
integer, parameter, public auxvar2d_num = 7
integer, parameter, public atmvar2d_sfc_dens_id = 1
integer, parameter, public atmvar2d_sfc_pres_id = 2
integer, parameter, public atmvar2d_atm_temp_id = 3
integer, parameter, public atmvar2d_atm_dens_id = 4
integer, parameter, public atmvar2d_atm_pres_id = 5
integer, parameter, public atmvar2d_atm_w_id = 6
integer, parameter, public atmvar2d_atm_u_id = 7
integer, parameter, public atmvar2d_atm_v_id = 8
integer, parameter, public atmvar2d_atm_qv_id = 9
integer, parameter, public atmvar2d_sflx_rd_sw_dir_id = 10
integer, parameter, public atmvar2d_sflx_rd_lw_dif_id = 11
integer, parameter, public atmvar2d_lowest_layer_dz_id = 12
integer, parameter, public atmvar2d_num = 12
integer, parameter, public ocn_sflx_mw_id = 1
 w-momentum flux at the ocean surface [kg/m/s2]
integer, parameter, public ocn_sflx_mu_id = 2
 u-momentum flux at the ocean surface [kg/m/s2]
integer, parameter, public ocn_sflx_mv_id = 3
 v-momentum flux at the ocean surface [kg/m/s2]
integer, parameter, public ocn_sflx_sh_id = 4
 sensible heat flux at the ocean surface [W/m2]
integer, parameter, public ocn_sflx_lh_id = 5
 latent heat flux at the ocean surface [W/m2]
integer, parameter, public ocn_sflx_qv_id = 6
 water vapor flux at the ocean surface [kg/m2/s]
integer, parameter, public ocn_sflx_num = 6
 Number of ocean surface fluxes.

Detailed Description

module Ocean / Variables

Description
Module to manage variables with ocean component
Author
Yuta Kawai, Team SCALE
NAMELIST
  • PARAM_OCEAN_VARS_RESTART
    nametypedefault valuecomment
    IN_BASENAMEcharacter(len=H_LONG)''Basename of the input file
    IN_POSTFIX_TIMELABELlogical.false.Add timelabel to the basename of input file?
    OUT_BASENAMEcharacter(len=H_LONG)''Basename of the output file
    OUT_POSTFIX_TIMELABELlogical.true.Add timelabel to the basename of output file?
    OUT_TITLEcharacter(len=H_MID)''Title of the output file
    OUT_DTYPEcharacter(len=H_SHORT)'DEFAULT'REAL4 or REAL8

History Output
namedescriptionunitvariable
OCEAN_SFC_TEMPocean surface temperatureKOCEAN_SFC_TEMP
OCEAN_SFC_ALB_IR_DIRocean surface albedo IR (direct)1OCEAN_SFC_ALB_IR_DIR
OCEAN_SFC_ALB_IR_DIFocean surface albedo IR (diffuse)1OCEAN_SFC_ALB_IR_DIF
OCEAN_SFC_ALB_NIR_DIRocean surface albedo NIR (direct)1OCEAN_SFC_ALB_NIR_DIR
OCEAN_SFC_ALB_NIR_DIFocean surface albedo NIR (diffuse)1OCEAN_SFC_ALB_NIR_DIF
OCEAN_SFC_ALB_VIS_DIRocean surface albedo VIS (direct)1OCEAN_SFC_ALB_VIS_DIR
OCEAN_SFC_ALB_VIS_DIFocean surface albedo VIS (diffuse)1OCEAN_SFC_ALB_VIS_DIF
U_tpU_tpm2/s2U_tp
V_tpV_tpm2/s2V_tp
W_tpW_tpm2/s2W_tp
THERM_tpTHERM_tpK/sTHERM_tp
SALT_tpSALT_tpPSU/sSALT_tp
RHOH_pRHOH_pkg/m3.J/sRHOH_p
OCEAN_THERMocean temperatureKOCEAN_THERM
OCEAN_SALTocean salinityPSUOCEAN_SALT
OCEAN_WVELocean w-velocitym/sOCEAN_WVEL
OCEAN_UVELocean u-velocitym/sOCEAN_UVEL
OCEAN_VVELocean v-velocitym/sOCEAN_VVEL

Function/Subroutine Documentation

◆ oceanvars_getlocalmeshprgvars()

subroutine, public mod_ocean_vars::oceanvars_getlocalmeshprgvars ( integer, intent(in) domid,
class(meshbase), intent(in) mesh,
class(modelvarmanager), intent(inout) prgvars_list,
class(modelvarmanager), intent(inout) auxvars2d_list,
class(localmeshfieldbase), intent(out), pointer u,
class(localmeshfieldbase), intent(out), pointer v,
class(localmeshfieldbase), intent(out), pointer w,
class(localmeshfieldbase), intent(out), pointer therm,
class(localmeshfieldbase), intent(out), pointer salt,
class(localmeshfieldbase), intent(out), pointer sfc_temp,
class(localmeshfieldbase), intent(out), optional, pointer sfc_alb_ir_dir,
class(localmeshfieldbase), intent(out), optional, pointer sfc_alb_ir_dif,
class(localmeshfieldbase), intent(out), optional, pointer sfc_alb_nir_dir,
class(localmeshfieldbase), intent(out), optional, pointer sfc_alb_nir_dif,
class(localmeshfieldbase), intent(out), optional, pointer sfc_alb_vis_dir,
class(localmeshfieldbase), intent(out), optional, pointer sfc_alb_vis_dif,
class(localmesh3d), intent(out), optional, pointer lcmesh3d )

Definition at line 558 of file mod_ocean_vars.F90.

564 implicit none
565 integer, intent(in) :: domID
566 class(MeshBase), intent(in) :: mesh
567 class(ModelVarManager), intent(inout) :: prgvars_list
568 class(ModelVarManager), intent(inout) :: auxvars2D_list
569 class(LocalMeshFieldBase), pointer, intent(out) :: U, V, W, THERM, SALT
570 class(LocalMeshFieldBase), pointer, intent(out) :: SFC_TEMP
571 class(LocalMeshFieldBase), pointer, intent(out), optional :: SFC_ALB_IR_dir, SFC_ALB_IR_dif
572 class(LocalMeshFieldBase), pointer, intent(out), optional :: SFC_ALB_NIR_dir, SFC_ALB_NIR_dif
573 class(LocalMeshFieldBase), pointer, intent(out), optional :: SFC_ALB_VIS_dir, SFC_ALB_VIS_dif
574 class(LocalMesh3D), pointer, intent(out), optional :: lcmesh3D
575
576 class(MeshFieldBase), pointer :: field
577 class(LocalMeshBase), pointer :: lcmesh
578 !-------------------------------------------------------
579
580 !--
581 call prgvars_list%Get(prgvar_u_id, field)
582 call field%GetLocalMeshField(domid, u)
583
584 call prgvars_list%Get(prgvar_v_id, field)
585 call field%GetLocalMeshField(domid, v)
586
587 call prgvars_list%Get(prgvar_w_id, field)
588 call field%GetLocalMeshField(domid, w)
589
590 call prgvars_list%Get(prgvar_therm_id, field)
591 call field%GetLocalMeshField(domid, therm)
592
593 call prgvars_list%Get(prgvar_salt_id, field)
594 call field%GetLocalMeshField(domid, salt)
595
596 call auxvars2d_list%Get(auxvar2d_sfc_temp_id, field)
597 call field%GetLocalMeshField(domid, sfc_temp)
598
599 if ( present(sfc_alb_ir_dir) ) then
600 call auxvars2d_list%Get(auxvar2d_sfc_alb_ir_dir_id, field)
601 call field%GetLocalMeshField(domid, sfc_alb_ir_dir)
602 end if
603 if ( present(sfc_alb_ir_dif) ) then
604 call auxvars2d_list%Get(auxvar2d_sfc_alb_ir_dif_id, field)
605 call field%GetLocalMeshField(domid, sfc_alb_ir_dif)
606 end if
607 if ( present(sfc_alb_nir_dir) ) then
608 call auxvars2d_list%Get(auxvar2d_sfc_alb_nir_dir_id, field)
609 call field%GetLocalMeshField(domid, sfc_alb_nir_dir)
610 end if
611 if ( present(sfc_alb_nir_dif) ) then
612 call auxvars2d_list%Get(auxvar2d_sfc_alb_nir_dif_id, field)
613 call field%GetLocalMeshField(domid, sfc_alb_nir_dif)
614 end if
615 if ( present(sfc_alb_vis_dir) ) then
616 call auxvars2d_list%Get(auxvar2d_sfc_alb_vis_dir_id, field)
617 call field%GetLocalMeshField(domid, sfc_alb_vis_dir)
618 end if
619 if ( present(sfc_alb_vis_dif) ) then
620 call auxvars2d_list%Get(auxvar2d_sfc_alb_vis_dif_id, field)
621 call field%GetLocalMeshField(domid, sfc_alb_vis_dif)
622 end if
623
624 !---
625
626 if ( present(lcmesh3d) ) then
627 call mesh%GetLocalMesh( domid, lcmesh )
628 nullify( lcmesh3d )
629
630 select type(lcmesh)
631 type is (localmesh3d)
632 if (present(lcmesh3d)) lcmesh3d => lcmesh
633 end select
634 end if
635
636 return

References auxvar2d_sfc_alb_ir_dif_id, auxvar2d_sfc_alb_ir_dir_id, auxvar2d_sfc_alb_nir_dif_id, auxvar2d_sfc_alb_nir_dir_id, auxvar2d_sfc_alb_vis_dif_id, auxvar2d_sfc_alb_vis_dir_id, auxvar2d_sfc_temp_id, prgvar_salt_id, prgvar_therm_id, prgvar_u_id, prgvar_v_id, and prgvar_w_id.

Referenced by mod_experiment::exp_setinitcond_lc::exp_setinitcond_lc(), and mod_ocean_vars::oceanvars::write_restart_file_post().

Variable Documentation

◆ prgvar_therm_id

integer, parameter, public mod_ocean_vars::prgvar_therm_id = 1

Definition at line 111 of file mod_ocean_vars.F90.

111 integer, public, parameter :: PRGVAR_THERM_ID = 1 ! Variable associated with energy equation (DRHOT or ETOT)

Referenced by oceanvars_getlocalmeshprgvars().

◆ prgvar_drhot_id

integer, parameter, public mod_ocean_vars::prgvar_drhot_id = 1

Definition at line 112 of file mod_ocean_vars.F90.

112 integer, public, parameter :: PRGVAR_DRHOT_ID = 1

◆ prgvar_salt_id

integer, parameter, public mod_ocean_vars::prgvar_salt_id = 2

Definition at line 113 of file mod_ocean_vars.F90.

113 integer, public, parameter :: PRGVAR_SALT_ID = 2

Referenced by oceanvars_getlocalmeshprgvars().

◆ prgvar_w_id

integer, parameter, public mod_ocean_vars::prgvar_w_id = 3

Definition at line 114 of file mod_ocean_vars.F90.

114 integer, public, parameter :: PRGVAR_W_ID = 3

Referenced by oceanvars_getlocalmeshprgvars().

◆ prgvar_u_id

integer, parameter, public mod_ocean_vars::prgvar_u_id = 4

Definition at line 115 of file mod_ocean_vars.F90.

115 integer, public, parameter :: PRGVAR_U_ID = 4

Referenced by oceanvars_getlocalmeshprgvars().

◆ prgvar_v_id

integer, parameter, public mod_ocean_vars::prgvar_v_id = 5

Definition at line 116 of file mod_ocean_vars.F90.

116 integer, public, parameter :: PRGVAR_V_ID = 5

Referenced by oceanvars_getlocalmeshprgvars().

◆ prgvar_scalar_num

integer, parameter, public mod_ocean_vars::prgvar_scalar_num = 3

Definition at line 117 of file mod_ocean_vars.F90.

117 integer, public, parameter :: PRGVAR_SCALAR_NUM = 3

◆ prgvar_hvec_num

integer, parameter, public mod_ocean_vars::prgvar_hvec_num = 1

Definition at line 118 of file mod_ocean_vars.F90.

118 integer, public, parameter :: PRGVAR_HVEC_NUM = 1

◆ prgvar_num

integer, parameter, public mod_ocean_vars::prgvar_num = 5

Definition at line 119 of file mod_ocean_vars.F90.

119 integer, public, parameter :: PRGVAR_NUM = 5

◆ phytend_u_id

integer, parameter, public mod_ocean_vars::phytend_u_id = 1

Definition at line 121 of file mod_ocean_vars.F90.

121 integer, public, parameter :: PHYTEND_U_ID = 1

◆ phytend_v_id

integer, parameter, public mod_ocean_vars::phytend_v_id = 2

Definition at line 122 of file mod_ocean_vars.F90.

122 integer, public, parameter :: PHYTEND_V_ID = 2

◆ phytend_w_id

integer, parameter, public mod_ocean_vars::phytend_w_id = 3

Definition at line 123 of file mod_ocean_vars.F90.

123 integer, public, parameter :: PHYTEND_W_ID = 3

◆ phytend_therm_id

integer, parameter, public mod_ocean_vars::phytend_therm_id = 4

Definition at line 124 of file mod_ocean_vars.F90.

124 integer, public, parameter :: PHYTEND_THERM_ID = 4

◆ phytend_salt_id

integer, parameter, public mod_ocean_vars::phytend_salt_id = 5

Definition at line 125 of file mod_ocean_vars.F90.

125 integer, public, parameter :: PHYTEND_SALT_ID = 5

◆ phytend_rhoh_id

integer, parameter, public mod_ocean_vars::phytend_rhoh_id = 6

Definition at line 126 of file mod_ocean_vars.F90.

126 integer, public, parameter :: PHYTEND_RHOH_ID = 6

Referenced by mod_ocean_component::ocean_setup().

◆ phytend_num

integer, parameter, public mod_ocean_vars::phytend_num = 6

Definition at line 127 of file mod_ocean_vars.F90.

127 integer, public, parameter :: PHYTEND_NUM = 6

◆ auxvar2d_sfc_temp_id

integer, parameter, public mod_ocean_vars::auxvar2d_sfc_temp_id = 1

Definition at line 129 of file mod_ocean_vars.F90.

129 integer, public, parameter :: AUXVAR2D_SFC_TEMP_ID = 1

Referenced by oceanvars_getlocalmeshprgvars().

◆ auxvar2d_sfc_alb_ir_dir_id

integer, parameter, public mod_ocean_vars::auxvar2d_sfc_alb_ir_dir_id = 2

Definition at line 130 of file mod_ocean_vars.F90.

130 integer, public, parameter :: AUXVAR2D_SFC_ALB_IR_dir_ID = 2

Referenced by oceanvars_getlocalmeshprgvars().

◆ auxvar2d_sfc_alb_ir_dif_id

integer, parameter, public mod_ocean_vars::auxvar2d_sfc_alb_ir_dif_id = 3

Definition at line 131 of file mod_ocean_vars.F90.

131 integer, public, parameter :: AUXVAR2D_SFC_ALB_IR_dif_ID = 3

Referenced by oceanvars_getlocalmeshprgvars().

◆ auxvar2d_sfc_alb_nir_dir_id

integer, parameter, public mod_ocean_vars::auxvar2d_sfc_alb_nir_dir_id = 4

Definition at line 132 of file mod_ocean_vars.F90.

132 integer, public, parameter :: AUXVAR2D_SFC_ALB_NIR_dir_ID = 4

Referenced by oceanvars_getlocalmeshprgvars().

◆ auxvar2d_sfc_alb_nir_dif_id

integer, parameter, public mod_ocean_vars::auxvar2d_sfc_alb_nir_dif_id = 5

Definition at line 133 of file mod_ocean_vars.F90.

133 integer, public, parameter :: AUXVAR2D_SFC_ALB_NIR_dif_ID = 5

Referenced by oceanvars_getlocalmeshprgvars().

◆ auxvar2d_sfc_alb_vis_dir_id

integer, parameter, public mod_ocean_vars::auxvar2d_sfc_alb_vis_dir_id = 6

Definition at line 134 of file mod_ocean_vars.F90.

134 integer, public, parameter :: AUXVAR2D_SFC_ALB_VIS_dir_ID = 6

Referenced by mod_ocean_component::ocean_setup(), and oceanvars_getlocalmeshprgvars().

◆ auxvar2d_sfc_alb_vis_dif_id

integer, parameter, public mod_ocean_vars::auxvar2d_sfc_alb_vis_dif_id = 7

Definition at line 135 of file mod_ocean_vars.F90.

135 integer, public, parameter :: AUXVAR2D_SFC_ALB_VIS_dif_ID = 7

Referenced by oceanvars_getlocalmeshprgvars().

◆ auxvar2d_num

integer, parameter, public mod_ocean_vars::auxvar2d_num = 7

Definition at line 136 of file mod_ocean_vars.F90.

136 integer, public, parameter :: AUXVAR2D_NUM = 7

◆ atmvar2d_sfc_dens_id

integer, parameter, public mod_ocean_vars::atmvar2d_sfc_dens_id = 1

Definition at line 139 of file mod_ocean_vars.F90.

139 integer, public, parameter :: ATMVAR2D_SFC_DENS_ID = 1

◆ atmvar2d_sfc_pres_id

integer, parameter, public mod_ocean_vars::atmvar2d_sfc_pres_id = 2

Definition at line 140 of file mod_ocean_vars.F90.

140 integer, public, parameter :: ATMVAR2D_SFC_PRES_ID = 2

◆ atmvar2d_atm_temp_id

integer, parameter, public mod_ocean_vars::atmvar2d_atm_temp_id = 3

Definition at line 141 of file mod_ocean_vars.F90.

141 integer, public, parameter :: ATMVAR2D_ATM_TEMP_ID = 3

◆ atmvar2d_atm_dens_id

integer, parameter, public mod_ocean_vars::atmvar2d_atm_dens_id = 4

Definition at line 142 of file mod_ocean_vars.F90.

142 integer, public, parameter :: ATMVAR2D_ATM_DENS_ID = 4

◆ atmvar2d_atm_pres_id

integer, parameter, public mod_ocean_vars::atmvar2d_atm_pres_id = 5

Definition at line 143 of file mod_ocean_vars.F90.

143 integer, public, parameter :: ATMVAR2D_ATM_PRES_ID = 5

◆ atmvar2d_atm_w_id

integer, parameter, public mod_ocean_vars::atmvar2d_atm_w_id = 6

Definition at line 144 of file mod_ocean_vars.F90.

144 integer, public, parameter :: ATMVAR2D_ATM_W_ID = 6

◆ atmvar2d_atm_u_id

integer, parameter, public mod_ocean_vars::atmvar2d_atm_u_id = 7

Definition at line 145 of file mod_ocean_vars.F90.

145 integer, public, parameter :: ATMVAR2D_ATM_U_ID = 7

◆ atmvar2d_atm_v_id

integer, parameter, public mod_ocean_vars::atmvar2d_atm_v_id = 8

Definition at line 146 of file mod_ocean_vars.F90.

146 integer, public, parameter :: ATMVAR2D_ATM_V_ID = 8

◆ atmvar2d_atm_qv_id

integer, parameter, public mod_ocean_vars::atmvar2d_atm_qv_id = 9

Definition at line 147 of file mod_ocean_vars.F90.

147 integer, public, parameter :: ATMVAR2D_ATM_QV_ID = 9

◆ atmvar2d_sflx_rd_sw_dir_id

integer, parameter, public mod_ocean_vars::atmvar2d_sflx_rd_sw_dir_id = 10

Definition at line 148 of file mod_ocean_vars.F90.

148 integer, public, parameter :: ATMVAR2D_SFLX_RD_SW_DIR_ID = 10

Referenced by mod_ocean_component::ocean_setup().

◆ atmvar2d_sflx_rd_lw_dif_id

integer, parameter, public mod_ocean_vars::atmvar2d_sflx_rd_lw_dif_id = 11

Definition at line 149 of file mod_ocean_vars.F90.

149 integer, public, parameter :: ATMVAR2D_SFLX_RD_LW_DIF_ID = 11

Referenced by mod_ocean_component::ocean_setup().

◆ atmvar2d_lowest_layer_dz_id

integer, parameter, public mod_ocean_vars::atmvar2d_lowest_layer_dz_id = 12

Definition at line 150 of file mod_ocean_vars.F90.

150 integer, public, parameter :: ATMVAR2D_LOWEST_LAYER_DZ_ID = 12

◆ atmvar2d_num

integer, parameter, public mod_ocean_vars::atmvar2d_num = 12

Definition at line 151 of file mod_ocean_vars.F90.

151 integer, public, parameter :: ATMVAR2D_NUM = 12

◆ ocn_sflx_mw_id

integer, parameter, public mod_ocean_vars::ocn_sflx_mw_id = 1

w-momentum flux at the ocean surface [kg/m/s2]

Definition at line 154 of file mod_ocean_vars.F90.

154 integer, public, parameter :: OCN_SFLX_MW_ID = 1 !< w-momentum flux at the ocean surface [kg/m/s2]

Referenced by mod_ocean_component::ocean_setup().

◆ ocn_sflx_mu_id

integer, parameter, public mod_ocean_vars::ocn_sflx_mu_id = 2

u-momentum flux at the ocean surface [kg/m/s2]

Definition at line 155 of file mod_ocean_vars.F90.

155 integer, public, parameter :: OCN_SFLX_MU_ID = 2 !< u-momentum flux at the ocean surface [kg/m/s2]

Referenced by mod_ocean_component::ocean_setup().

◆ ocn_sflx_mv_id

integer, parameter, public mod_ocean_vars::ocn_sflx_mv_id = 3

v-momentum flux at the ocean surface [kg/m/s2]

Definition at line 156 of file mod_ocean_vars.F90.

156 integer, public, parameter :: OCN_SFLX_MV_ID = 3 !< v-momentum flux at the ocean surface [kg/m/s2]

Referenced by mod_ocean_component::ocean_setup().

◆ ocn_sflx_sh_id

integer, parameter, public mod_ocean_vars::ocn_sflx_sh_id = 4

sensible heat flux at the ocean surface [W/m2]

Definition at line 157 of file mod_ocean_vars.F90.

157 integer, public, parameter :: OCN_SFLX_SH_ID = 4 !< sensible heat flux at the ocean surface [W/m2]

Referenced by mod_ocean_component::ocean_setup().

◆ ocn_sflx_lh_id

integer, parameter, public mod_ocean_vars::ocn_sflx_lh_id = 5

latent heat flux at the ocean surface [W/m2]

Definition at line 158 of file mod_ocean_vars.F90.

158 integer, public, parameter :: OCN_SFLX_LH_ID = 5 !< latent heat flux at the ocean surface [W/m2]

Referenced by mod_ocean_component::ocean_setup().

◆ ocn_sflx_qv_id

integer, parameter, public mod_ocean_vars::ocn_sflx_qv_id = 6

water vapor flux at the ocean surface [kg/m2/s]

Definition at line 159 of file mod_ocean_vars.F90.

159 integer, public, parameter :: OCN_SFLX_QV_ID = 6 !< water vapor flux at the ocean surface [kg/m2/s]

Referenced by mod_ocean_component::ocean_setup().

◆ ocn_sflx_num

integer, parameter, public mod_ocean_vars::ocn_sflx_num = 6

Number of ocean surface fluxes.

Definition at line 160 of file mod_ocean_vars.F90.

160 integer, public, parameter :: OCN_SFLX_NUM = 6 !< Number of ocean surface fluxes