Index

Rundeck: P1SoM40

Created: Thu May 9 03:30:17 EDT 2024

obdrag

Module:

File: OCNDYN.f

Summary: OBDRAG exerts a drag on the Ocean Model's bottom layer define OCN_GISS_TURB and idrag=1 in GISS_OTURB module to include tidal enhancement of bottom drag
Author : Gary Russell and Armando Howard
Version:

---

Declaration:

subroutine obdrag

Variables:

im : used from ocean

jm : used from ocean

lmo : used from ocean

ivnp : used from ocean

j1o : used from ocean

mo : used from ocean

uo : used from ocean

vo : used from ocean

lmu : used from ocean

lmv : used from ocean

dts : used from ocean

cosi : used from ocean

Initial Value = >COSIC

sini : used from ocean

Initial Value = >SINIC

getdomainbounds : used from domain_decomp_1d

halo_update : used from domain_decomp_1d

north : used from domain_decomp_1d

south : used from domain_decomp_1d

grid : used from oceanr_dim

Initial Value = >ogrid

bdragx : real*8, parameter

Initial Value = 1d0

sdragx : real*8, parameter

Initial Value = 1d-1

ut : real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo, lmo)

vt : real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo, lmo)

i : integer*4

j : integer*4

l : integer*4

ip1 : integer*4

im1 : integer*4

wsq : real*8

have_north_pole : integer::j_0, j_0s, j_1s;logical

bdragfac : real*8