Index

Rundeck: P1SoM40

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

obdrag2

Module:

File: OCNDYN2.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: 2010/01/08, 2012/03/16

---

Declaration:

subroutine obdrag2

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

uod : used from ocean

vod : 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

halo_update : used from domain_decomp_1d

south : used from domain_decomp_1d

north : used from domain_decomp_1d

ogrid : used from oceanr_dim

bdragx : real*8, parameter

Initial Value = 1d0

sdragx : real*8, parameter

Initial Value = 1d-1

i : integer*4

ip1 : integer*4

j : integer*4

l : integer*4

j1 : integer*4

jn : integer*4

jnp : integer*4

wsq : real*8

bdragfac : real*8