user_revise_forcing.F90

!> Provides a template for users to code updating the forcing fluxes.
module user_revise_forcing
 
! This file is part of MOM6. See LICENSE.md for the license.
 
use mom_domains, only : pass_var, pass_vector, agrid
use mom_error_handler, only : mom_error, fatal, warning, is_root_pe
use mom_file_parser, only : get_param, log_version, param_file_type
use mom_forcing_type, only : forcing
use mom_grid, only : ocean_grid_type
use mom_io, only : file_exists, read_data
use mom_restart, only : register_restart_field, mom_restart_cs
use mom_time_manager, only : time_type, operator(+), operator(/)
use mom_tracer_flow_control, only : call_tracer_set_forcing
use mom_tracer_flow_control, only : tracer_flow_control_cs
use mom_variables, only : surface
 
implicit none ; private
 
public user_alter_forcing, user_revise_forcing_init
 
!> Control structure for user_revise_forcing
type, public :: user_revise_forcing_cs ; private
  real :: cdrag  !< The quadratic bottom drag coefficient.
end type user_revise_forcing_cs
 
! This include declares and sets the variable "version".
#include "version_variable.h"
  character(len=40) :: mdl = "user_revise_forcing" !< This module's name.
contains
 
!> This subroutine sets the surface wind stresses.
subroutine user_alter_forcing(state, fluxes, day, G, CS)
  type(surface),            intent(in)    :: state  !< A structure containing fields that
                                                    !! describe the surface state of the ocean.
  type(forcing),            intent(inout) :: fluxes !< A structure containing pointers to any
                                                    !! possible forcing fields. Unused fields
                                                    !! have NULL ptrs.
  type(time_type),          intent(in)    :: day    !< Time of the fluxes.
  type(ocean_grid_type),    intent(in)    :: g      !< The ocean's grid structure.
  type(user_revise_forcing_cs), pointer   :: cs     !< A pointer to the control structure
                                                    !! returned by a previous call to
                                                    !! surface_forcing_init.
 
end subroutine user_alter_forcing
 
!> Initialize the user_revise_forcing control structure
subroutine user_revise_forcing_init(param_file,CS)
  type(param_file_type), intent(in) :: param_file   !< A structure indicating the open file to
                                                    !! parse for model parameter values.
  type(user_revise_forcing_cs), pointer   :: cs     !< A pointer to the control structure
                                                    !! returned by a previous call to
                                                    !! surface_forcing_init.
 
  call log_version(param_file, mdl, version)
 
end subroutine user_revise_forcing_init
 
end module user_revise_forcing