Skip to content

Commit

Permalink
more changes to have minimal differences between nuopc and mct
Browse files Browse the repository at this point in the history
  • Loading branch information
Mariana Vertenstein committed Jul 17, 2019
1 parent f72454b commit 562297c
Showing 1 changed file with 0 additions and 8 deletions.
8 changes: 0 additions & 8 deletions config_src/mct_driver/MOM_surface_forcing.F90
Original file line number Diff line number Diff line change
Expand Up @@ -66,9 +66,6 @@ module MOM_surface_forcing
logical :: use_temperature !! If true, temp and saln used as state variables
real :: wind_stress_multiplier!< A multiplier applied to incoming wind stress (nondim).

! smg: remove when have A=B code reconciled
logical :: bulkmixedlayer !< If true, model based on bulk mixed layer code

real :: Rho0 !< Boussinesq reference density [kg/m^3]
real :: area_surf = -1.0 !< total ocean surface area [m^2]
real :: latent_heat_fusion !< latent heat of fusion [J/kg]
Expand Down Expand Up @@ -1093,11 +1090,6 @@ subroutine surface_forcing_init(Time, G, US, param_file, diag, CS, restore_salt,
"limited by max_p_surf instead of the full atmospheric "//&
"pressure.", default=.true.)

! smg: should get_param call should be removed when have A=B code reconciled.
! this param is used to distinguish how to diagnose surface heat content from water.
call get_param(param_file, mdl, "BULKMIXEDLAYER", CS%bulkmixedlayer, &
default=CS%use_temperature,do_not_log=.true.)

call get_param(param_file, mdl, "WIND_STAGGER", stagger, &
"A case-insensitive character string to indicate the "//&
"staggering of the input wind stress field. Valid "//&
Expand Down

0 comments on commit 562297c

Please sign in to comment.