/[MITgcm]/MITgcm/model/src/calc_viscosity.F
ViewVC logotype

Log of /MITgcm/model/src/calc_viscosity.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Links to HEAD: (view) (download) (annotate)
Sticky Tag:

Revision 1.12 - (view) (download) (annotate) - [select for diffs]
Thu Nov 2 18:00:52 2017 UTC (6 years, 5 months ago) by jmc
Branch: MAIN
CVS Tags: HEAD, checkpoint66m, checkpoint66n, checkpoint66o
Changes since 1.11: +230 -1 lines
Diff to previous 1.11
- new options 1) to account for true vertical distance (including hFac)
     in vertical viscous flux and diffusive flux ;
  2) to increase vertical mixing near surface and/or bottom where partial
     cell is too thin ;
- for now, both additions above are within: #ifndef EXCLUDE_PCELL_MIX_CODE ;


Revision 1.11 - (view) (download) (annotate) - [select for diffs]
Wed Dec 24 19:09:33 2014 UTC (9 years, 4 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint65i, checkpoint65j, checkpoint65k, checkpoint65l, checkpoint65m, checkpoint65n, checkpoint65o, checkpoint65p, checkpoint65q, checkpoint65r, checkpoint65s, checkpoint65t, checkpoint65u, checkpoint65v, checkpoint65w, checkpoint65x, checkpoint65y, checkpoint65z, checkpoint66a, checkpoint66b, checkpoint66c, checkpoint66d, checkpoint66e, checkpoint66f, checkpoint66g, checkpoint66h, checkpoint66i, checkpoint66j, checkpoint66k, checkpoint66l
Changes since 1.10: +42 -19 lines
Diff to previous 1.10
- add one more level to vertical viscosity local arrays (Nr+1, previously Nr)
  since no-slip bottom BC uses viscosity @ k+1 to update velocity @ level k
- for now and until vertical mixing scheme are updated to fill up Nr+1 level,
  just copy Nr value to Nr+1


Revision 1.10 - (view) (download) (annotate) - [select for diffs]
Wed Jul 30 03:31:35 2014 UTC (9 years, 9 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint65b, checkpoint65c, checkpoint65d, checkpoint65e, checkpoint65f, checkpoint65g, checkpoint65h
Changes since 1.9: +12 -5 lines
Diff to previous 1.9
-  add new pkg "kl10" for mixing due to internal wave breaking
  ( http://www.sciencedirect.com/science/article/pii/S1463500310000144 )


Revision 1.9 - (view) (download) (annotate) - [select for diffs]
Thu Oct 8 20:03:18 2009 UTC (14 years, 6 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint61w, checkpoint61x, checkpoint61y, checkpoint61z, checkpoint62, checkpoint62a, checkpoint62b, checkpoint62c, checkpoint62d, checkpoint62e, checkpoint62f, checkpoint62g, checkpoint62h, checkpoint62i, checkpoint62j, checkpoint62k, checkpoint62l, checkpoint62m, checkpoint62n, checkpoint62o, checkpoint62p, checkpoint62q, checkpoint62r, checkpoint62s, checkpoint62t, checkpoint62u, checkpoint62v, checkpoint62w, checkpoint62x, checkpoint62y, checkpoint62z, checkpoint63, checkpoint63a, checkpoint63b, checkpoint63c, checkpoint63d, checkpoint63e, checkpoint63f, checkpoint63g, checkpoint63h, checkpoint63i, checkpoint63j, checkpoint63k, checkpoint63l, checkpoint63m, checkpoint63n, checkpoint63o, checkpoint63p, checkpoint63q, checkpoint63r, checkpoint63s, checkpoint64, checkpoint64a, checkpoint64b, checkpoint64c, checkpoint64d, checkpoint64e, checkpoint64f, checkpoint64g, checkpoint64h, checkpoint64i, checkpoint64j, checkpoint64k, checkpoint64l, checkpoint64m, checkpoint64n, checkpoint64o, checkpoint64p, checkpoint64q, checkpoint64r, checkpoint64s, checkpoint64t, checkpoint64u, checkpoint64v, checkpoint64w, checkpoint64x, checkpoint64y, checkpoint64z, checkpoint65, checkpoint65a
Changes since 1.8: +3 -3 lines
Diff to previous 1.8
allow to specify a vertical profile of vertical viscosity


Revision 1.8 - (view) (download) (annotate) - [select for diffs]
Mon Oct 20 23:51:39 2008 UTC (15 years, 6 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint61e, checkpoint61f, checkpoint61g, checkpoint61h, checkpoint61i, checkpoint61j, checkpoint61k, checkpoint61l, checkpoint61m, checkpoint61n, checkpoint61o, checkpoint61p, checkpoint61q, checkpoint61r, checkpoint61s, checkpoint61t, checkpoint61u, checkpoint61v
Changes since 1.7: +30 -29 lines
Diff to previous 1.7
- fix index range in calc_viscosity.F (was wrong for CD-Scheme & explicit Visc)
- put k loop inside calc_viscosity.F


Revision 1.7 - (view) (download) (annotate) - [select for diffs]
Thu Sep 16 09:35:11 2004 UTC (19 years, 7 months ago) by mlosch
Branch: MAIN
CVS Tags: checkpint57u_post, checkpoint54f_post, checkpoint55, checkpoint55a_post, checkpoint55b_post, checkpoint55c_post, checkpoint55d_post, checkpoint55d_pre, checkpoint55e_post, checkpoint55f_post, checkpoint55g_post, checkpoint55h_post, checkpoint55i_post, checkpoint55j_post, checkpoint56, checkpoint56a_post, checkpoint56b_post, checkpoint56c_post, checkpoint57, checkpoint57a_post, checkpoint57a_pre, checkpoint57b_post, checkpoint57c_post, checkpoint57c_pre, checkpoint57d_post, checkpoint57e_post, checkpoint57f_post, checkpoint57f_pre, checkpoint57g_post, checkpoint57g_pre, checkpoint57h_done, checkpoint57h_post, checkpoint57h_pre, checkpoint57i_post, checkpoint57j_post, checkpoint57k_post, checkpoint57l_post, checkpoint57m_post, checkpoint57n_post, checkpoint57o_post, checkpoint57p_post, checkpoint57q_post, checkpoint57r_post, checkpoint57s_post, checkpoint57t_post, checkpoint57v_post, checkpoint57w_post, checkpoint57x_post, checkpoint57y_post, checkpoint57y_pre, checkpoint57z_post, checkpoint58, checkpoint58a_post, checkpoint58b_post, checkpoint58c_post, checkpoint58d_post, checkpoint58e_post, checkpoint58f_post, checkpoint58g_post, checkpoint58h_post, checkpoint58i_post, checkpoint58j_post, checkpoint58k_post, checkpoint58l_post, checkpoint58m_post, checkpoint58n_post, checkpoint58o_post, checkpoint58p_post, checkpoint58q_post, checkpoint58r_post, checkpoint58s_post, checkpoint58t_post, checkpoint58u_post, checkpoint58v_post, checkpoint58w_post, checkpoint58x_post, checkpoint58y_post, checkpoint59, checkpoint59a, checkpoint59b, checkpoint59c, checkpoint59d, checkpoint59e, checkpoint59f, checkpoint59g, checkpoint59h, checkpoint59i, checkpoint59j, checkpoint59k, checkpoint59l, checkpoint59m, checkpoint59n, checkpoint59o, checkpoint59p, checkpoint59q, checkpoint59r, checkpoint60, checkpoint61, checkpoint61a, checkpoint61b, checkpoint61c, checkpoint61d, eckpoint57e_pre, mitgcm_mapl_00
Changes since 1.6: +8 -1 lines
Diff to previous 1.6
o prepare addition of new packages GGL90 and OPPS
  - new parameters useGGL90 and useOPPS
  - include call to the new routines at the (hopefully) right places


Revision 1.6 - (view) (download) (annotate) - [select for diffs]
Thu Sep 2 09:13:49 2004 UTC (19 years, 7 months ago) by mlosch
Branch: MAIN
CVS Tags: checkpoint54e_post
Changes since 1.5: +15 -1 lines
Diff to previous 1.5
o add calls for two new packages
  - pp81 (Packanowski and Philander, 1981), Richardson number and
    stratification dependent mixing
  - my82 (Mellor and Yamada, 1982) level 2 turbulence closure scheme


Revision 1.5 - (view) (download) (annotate) - [select for diffs]
Thu Oct 9 04:19:18 2003 UTC (20 years, 6 months ago) by edhill
Branch: MAIN
CVS Tags: branch-netcdf, checkpoint51i_post, checkpoint51k_post, checkpoint51l_post, checkpoint51l_pre, checkpoint51m_post, checkpoint51n_post, checkpoint51n_pre, checkpoint51o_post, checkpoint51o_pre, checkpoint51p_post, checkpoint51q_post, checkpoint51r_post, checkpoint51s_post, checkpoint51t_post, checkpoint51u_post, checkpoint52, checkpoint52a_post, checkpoint52a_pre, checkpoint52b_post, checkpoint52b_pre, checkpoint52c_post, checkpoint52d_post, checkpoint52d_pre, checkpoint52e_post, checkpoint52e_pre, checkpoint52f_post, checkpoint52f_pre, checkpoint52h_pre, checkpoint52i_post, checkpoint52i_pre, checkpoint52j_post, checkpoint52j_pre, checkpoint52k_post, checkpoint52l_post, checkpoint52l_pre, checkpoint52m_post, checkpoint52n_post, checkpoint53, checkpoint53a_post, checkpoint53b_post, checkpoint53b_pre, checkpoint53c_post, checkpoint53d_post, checkpoint53d_pre, checkpoint53f_post, checkpoint53g_post, checkpoint54, checkpoint54a_post, checkpoint54a_pre, checkpoint54b_post, checkpoint54c_post, checkpoint54d_post, ecco_c52_e35, hrcube4, hrcube5, hrcube_1, hrcube_2, hrcube_3
Branch point for: branch-nonh, checkpoint51n_branch, netcdf-sm0, tg2-branch
Changes since 1.4: +2 -1 lines
Diff to previous 1.4
 o first check-in for the "branch-genmake2" merge
 o verification suite as run on shelley (gcc 3.2.2):

Wed Oct  8 23:42:29 EDT 2003
                T           S           U           V
G D M    c        m  s        m  s        m  s        m  s
E p a R  g  m  m  e  .  m  m  e  .  m  m  e  .  m  m  e  .
N n k u  2  i  a  a  d  i  a  a  d  i  a  a  d  i  a  a  d
2 d e n  d  n  x  n  .  n  x  n  .  n  x  n  .  n  x  n  .

OPTFILE=NONE

Y Y Y Y 13 16 16 16  0 16 16 16 16 16 16 16 16 13 12  0  0 pass  adjustment.128x64x1
Y Y Y Y 16 16 16 16  0 16 16 16 16 16 16  0  0 16 16  0  0 pass  adjustment.cs-32x32x1
Y Y Y Y 16 16 16 16  0 16 16 16 16 16 16 22  0 16 16 22  0 pass  adjust_nlfs.cs-32x32x1
Y Y Y Y -- 13 13 16 16 13 13 13 13 16 16 16 16 16 16 16 16 N/O   advect_cs
Y Y Y Y -- 22 16 16 16 16 16 16 13 16 16 16 16 16 16 16 16 N/O   advect_xy
Y Y Y Y -- 13 16 13 16 16 16 16 16 16 16 22 16 16 16 16 16 N/O   advect_xz
Y Y Y Y 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 pass  aim.5l_cs
Y Y Y Y 14 16 16 16 16 16 16 16 16 13 16 16 16 16 16 13 16 pass  aim.5l_Equatorial_Channel
Y Y Y Y 16 16 16 16 16 16 16 16 16 16 16 13 16 16 13 13 16 pass  aim.5l_LatLon
Y Y Y Y 13 16 16 16 16 16 16 16 16 16 13 12 13 13 16 13 16 pass  exp0
Y Y Y Y 14 16 16 16 16 16 16 16 22 16 16 16 13 16 16 22 16 pass  exp1
Y Y Y Y 13 13 16 13 16 16 16 16 16 13 13 16 16 13 13 13 13 pass  exp2
Y Y Y Y 16 16 16 16 16 16 16 16 22 16 16 16 16 16 16 16 16 pass  exp4
Y Y Y Y 16 16 16 16 16 16 16 16 16 16 16 22 16 16 16 22 16 pass  exp5
Y Y Y Y 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 pass  front_relax
Y Y Y Y 14 16 16 13 13 16 16 13 13 16 13 13 16 12 13 13 16 pass  global_ocean.90x40x15
Y Y Y Y 10 16 16 13 13 16 13 16 16 13 13 13 13 16 16 13 16 FAIL  global_ocean.cs32x15
Y Y Y Y  6 11 12 13 13 12 13 16 13  9  9  9  9 10  9  9 11 FAIL  global_ocean_pressure
Y Y Y Y 14 16 16 13 16 16 16 13 13 13 13 13 16 12 16 13 16 pass  global_with_exf
Y Y Y Y 14 16 16 16 16 16 16 16 16 11 13 22 13 16 16  9 16 pass  hs94.128x64x5
Y Y Y Y 13 16 16 16 16 16 16 16 16 11 16 16 16 13 16 22 13 pass  hs94.1x64x5
Y Y Y Y 14 16 16 16 16 16 16 16 16 13 16 13 13 16 16 22 13 pass  hs94.cs-32x32x5
Y Y Y Y 10 10 16 13 13 16 16 16 22 16 13 13 13 13 13 22 13 FAIL  ideal_2D_oce
Y Y Y Y  8 16 16 16 16 16 16 16 16 13 13  8 16 16 16 16 16 FAIL  internal_wave
Y Y Y Y 14 16 16 16 16 16 16 16 16 13 13 22 13 13 13 22 16 pass  inverted_barometer
Y Y Y Y 12 16 16 16 16 16 16 16 16 16 13 12 13 13 13 13 13 FAIL  lab_sea
Y Y Y Y 11 16 16 16 16 16 16 16 13 13 13 12 13 16 13 12 13 FAIL  natl_box
Y Y Y Y 16 16 16 16 16 16 16 16 22 16 16 16 16 16 16 16 16 pass  plume_on_slope
Y Y Y Y 13 16 16 16 16 13 16 16 16 16 16 16 16 13 16 16 16 pass  solid-body.cs-32x32x1


Revision 1.4.4.1 - (view) (download) (annotate) - [select for diffs]
Thu Oct 2 18:10:45 2003 UTC (20 years, 7 months ago) by edhill
Branch: branch-genmake2
Changes since 1.4: +2 -1 lines
Diff to previous 1.4 , to next main 1.12
 o included PACKAGES_CONFIG.h in all files where the ALLOW_${PKG_NAME}
     defines are used
 o added comments where IF ( use${PKG_NAME} ) statements will probably
     be needed -- or need to be edited


Revision 1.3.6.3 - (view) (download) (annotate) - [select for diffs]
Tue Jun 24 23:05:28 2003 UTC (20 years, 10 months ago) by heimbach
Branch: ecco-branch
CVS Tags: ecco_c51_e34, ecco_c51_e34a, ecco_c51_e34b, ecco_c51_e34c, ecco_c51_e34d, ecco_c51_e34e, ecco_c51_e34f, ecco_c51_e34g
Changes since 1.3.6.2: +0 -0 lines
Diff to previous 1.3.6.2 , to branch point 1.3 , to next main 1.12
Merging from c51


Revision 1.3.6.2 - (view) (download) (annotate) - [select for diffs]
Fri Mar 7 23:10:20 2003 UTC (21 years, 1 month ago) by heimbach
Branch: ecco-branch
CVS Tags: ecco_c50_e28, ecco_c50_e29, ecco_c50_e30, ecco_c50_e31, ecco_c50_e32, ecco_c50_e33, ecco_c50_e33a
Changes since 1.3.6.1: +2 -2 lines
Diff to previous 1.3.6.1 , to branch point 1.3
merging c49 and e27


Revision 1.4 - (view) (download) (annotate) - [select for diffs]
Thu May 30 02:27:00 2002 UTC (21 years, 11 months ago) by heimbach
Branch: MAIN
CVS Tags: branch-exfmods-tag, branchpoint-genmake2, checkpoint45b_post, checkpoint45c_post, checkpoint45d_post, checkpoint46, checkpoint46a_post, checkpoint46a_pre, checkpoint46b_post, checkpoint46b_pre, checkpoint46c_post, checkpoint46c_pre, checkpoint46d_post, checkpoint46d_pre, checkpoint46e_post, checkpoint46e_pre, checkpoint46f_post, checkpoint46g_post, checkpoint46g_pre, checkpoint46h_post, checkpoint46h_pre, checkpoint46i_post, checkpoint46j_post, checkpoint46j_pre, checkpoint46k_post, checkpoint46l_post, checkpoint46l_pre, checkpoint46m_post, checkpoint46n_post, checkpoint47, checkpoint47a_post, checkpoint47b_post, checkpoint47c_post, checkpoint47d_post, checkpoint47d_pre, checkpoint47e_post, checkpoint47f_post, checkpoint47g_post, checkpoint47h_post, checkpoint47i_post, checkpoint47j_post, checkpoint48, checkpoint48a_post, checkpoint48b_post, checkpoint48c_post, checkpoint48c_pre, checkpoint48d_post, checkpoint48d_pre, checkpoint48e_post, checkpoint48f_post, checkpoint48g_post, checkpoint48h_post, checkpoint48i_post, checkpoint49, checkpoint50, checkpoint50a_post, checkpoint50b_post, checkpoint50b_pre, checkpoint50c_post, checkpoint50c_pre, checkpoint50d_post, checkpoint50d_pre, checkpoint50e_post, checkpoint50e_pre, checkpoint50f_post, checkpoint50f_pre, checkpoint50g_post, checkpoint50h_post, checkpoint50i_post, checkpoint51, checkpoint51a_post, checkpoint51b_post, checkpoint51b_pre, checkpoint51c_post, checkpoint51d_post, checkpoint51e_post, checkpoint51f_post, checkpoint51f_pre, checkpoint51g_post, checkpoint51h_pre, checkpoint51i_pre, checkpoint51j_post
Branch point for: branch-exfmods-curt, branch-genmake2
Changes since 1.3: +6 -6 lines
Diff to previous 1.3
Extended calculation to full overlap
(needed to avoid partial recomputation in adjoint mode).
CVS ----------------------------------------------------------------------


Revision 1.3.6.1 - (view) (download) (annotate) - [select for diffs]
Wed Apr 17 14:05:34 2002 UTC (22 years ago) by heimbach
Branch: ecco-branch
CVS Tags: ecco_c44_e23, ecco_c44_e24, ecco_c44_e25, ecco_c44_e26, ecco_c44_e27, ecco_ice1, ecco_ice2, icebear2, icebear3, icebear4, icebear5
Branch point for: c24_e25_ice, icebear
Changes since 1.3: +6 -6 lines
Diff to previous 1.3
Merging patches between release1_p1 and release1_p2:
o fixed array boundary problem for adjoint
  (related to partial recomputation within subroutine
  related to dynamics -> calc_viscosity -> mom_...
o fixed recomputation in thermodynamics
o prepare (but not complete) recomputation problem in impldiff
o fixed problem for adjoint of global_max
o switched off sponge layer code in external_forcing
Bug fix in ctrl_mask_set_yz (spotted by G. Gebbie)


Revision 1.3.4.1 - (view) (download) (annotate) - [select for diffs]
Wed Apr 17 01:38:00 2002 UTC (22 years ago) by heimbach
Branch: release1
CVS Tags: release1_p10, release1_p11, release1_p12, release1_p12_pre, release1_p13, release1_p13_pre, release1_p14, release1_p15, release1_p16, release1_p17, release1_p2, release1_p3, release1_p4, release1_p5, release1_p6, release1_p7, release1_p8, release1_p9
Branch point for: release1_50yr
Changes since 1.3: +6 -6 lines
Diff to previous 1.3 , to next main 1.12
o Partial setting of kappa arrays to constant background
  caused trouble in reverse mode
  (array boundaries are inconsistent between calc_viscosity
  and mom/ package).
-> extended to full domain.


Revision 1.3 - (view) (download) (annotate) - [select for diffs]
Wed Sep 26 18:09:14 2001 UTC (22 years, 7 months ago) by cnh
Branch: MAIN
CVS Tags: checkpoint41, checkpoint42, checkpoint43, checkpoint43a-release1mods, checkpoint44, checkpoint44b_post, checkpoint44b_pre, checkpoint44e_post, checkpoint44e_pre, checkpoint44f_post, checkpoint44f_pre, checkpoint44g_post, checkpoint44h_post, checkpoint44h_pre, checkpoint45, checkpoint45a_post, chkpt44a_post, chkpt44a_pre, chkpt44c_post, chkpt44c_pre, chkpt44d_post, ecco-branch-mod1, ecco-branch-mod2, ecco-branch-mod3, ecco-branch-mod4, ecco-branch-mod5, ecco_c44_e16, ecco_c44_e17, ecco_c44_e18, ecco_c44_e19, ecco_c44_e20, ecco_c44_e21, ecco_c44_e22, release1-branch-end, release1-branch_branchpoint, release1-branch_tutorials, release1_b1, release1_beta1, release1_chkpt44d_post, release1_final_v1, release1_p1
Branch point for: ecco-branch, release1, release1-branch, release1_coupled, release1_final
Changes since 1.2: +18 -8 lines
Diff to previous 1.2
Bringing comments up to data and formatting for document extraction.


Revision 1.2 - (view) (download) (annotate) - [select for diffs]
Mon Aug 13 23:27:53 2001 UTC (22 years, 8 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint40, checkpoint40pre7, checkpoint40pre8, checkpoint40pre9
Changes since 1.1: +0 -4 lines
Diff to previous 1.1
Removed maskUp (no longer needed).


Revision 1.1 - (view) (download) (annotate) - [select for diffs]
Mon Aug 13 18:05:26 2001 UTC (22 years, 8 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint40pre6
Modifications related to split into thermodynamics.F, dynamics.F
o missing initialisations in dynamics.F added
o some fields no longer needed in dynamics/thermodynamics deleted
o split of calc_diffusivity.F into calc_viscosity.F
  (plus split of kpp_calc_diff.F into kpp_calc_visc.F)
o Modifications of some store directives for TAF


This form allows you to request diffs between any two revisions of this file. For each of the two "sides" of the diff, select a symbolic revision name using the selection box, or choose 'Use Text Field' and enter a numeric revision.

  Diffs between and
  Type of Diff should be a

Sort log by:

  ViewVC Help
Powered by ViewVC 1.1.22