Skip to content

Commit

Permalink
Change CDRAG_MEKE to MEKE_CDRAG
Browse files Browse the repository at this point in the history
  • Loading branch information
gustavo-marques committed Mar 30, 2020
1 parent 0cddf1f commit 6ce3dd9
Showing 1 changed file with 3 additions and 3 deletions.
6 changes: 3 additions & 3 deletions src/parameterizations/lateral/MOM_MEKE.F90
Original file line number Diff line number Diff line change
Expand Up @@ -1190,9 +1190,9 @@ logical function MEKE_init(Time, G, US, param_file, diag, CS, MEKE, restart_CS)
"CDRAG is the drag coefficient relating the magnitude of "//&
"the velocity field to the bottom stress.", units="nondim", &
default=0.003)
call get_param(param_file, mdl, "CDRAG_MEKE", CS%cdrag, &
"CDRAG is the drag coefficient relating the magnitude of "//&
"the velocity field to the bottom stress.", units="nondim", &
call get_param(param_file, mdl, "MEKE_CDRAG", CS%cdrag, &
"Drag coefficient relating the magnitude of the velocity "//&
"field to the bottom stress in MEKE.", units="nondim", &
default=cdrag)
call get_param(param_file, mdl, "LAPLACIAN", laplacian, default=.false., do_not_log=.true.)
call get_param(param_file, mdl, "BIHARMONIC", biharmonic, default=.false., do_not_log=.true.)
Expand Down

0 comments on commit 6ce3dd9

Please sign in to comment.