/[MITgcm]/MITgcm/pkg/kl10/kl10_init_varia.F
ViewVC logotype

Annotation of /MITgcm/pkg/kl10/kl10_init_varia.F

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

Revision 1.2 - (hide annotations) (download)
Mon Feb 23 21:20:15 2015 UTC (9 years, 2 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint66g, checkpoint66f, checkpoint66e, checkpoint66d, checkpoint66c, checkpoint66b, checkpoint66a, checkpoint66o, checkpoint66n, checkpoint66m, checkpoint66l, checkpoint66k, checkpoint66j, checkpoint66i, checkpoint66h, checkpoint65z, checkpoint65x, checkpoint65y, checkpoint65r, checkpoint65s, checkpoint65p, checkpoint65q, checkpoint65v, checkpoint65w, checkpoint65t, checkpoint65u, checkpoint65j, checkpoint65k, checkpoint65n, checkpoint65o, checkpoint65l, checkpoint65m, HEAD
Changes since 1.1: +2 -2 lines 
- change background vertical diffusivity in vertical mixing pkgs ggl90,
  kl10, my82 and pp81 from temperature diffusivity to salinity diffusivity.
  This makes ptracers default diffusivity (that uses salt diffKr) more
  consistent with vertical mixing schemes.
1 jmc 1.2 C $Header: /u/gcmpack/MITgcm/pkg/kl10/kl10_init_varia.F,v 1.1 2014/07/30 03:28:05 jmc Exp $
2 jmc 1.1 C $Name: $
3    
4     #include "KL10_OPTIONS.h"
5    
6     SUBROUTINE KL10_INIT_VARIA( myThid )
7     C *==========================================================*
8     C | SUBROUTINE KL10_INIT_VARIA
9     C | o Routine to initialize KL10 parameters and variables.
10     C *==========================================================*
11     C | Initialize KL10 parameters and variables.
12     C *==========================================================*
13     IMPLICIT NONE
14    
15     C === Global variables ===
16     #include "SIZE.h"
17     #include "EEPARAMS.h"
18     #include "PARAMS.h"
19     c#include "GRID.h"
20     #include "KL10.h"
21    
22     C === Routine arguments ===
23     C myThid - Number of this instance of KL10_INIT
24     INTEGER myThid
25    
26     #ifdef ALLOW_KL10
27    
28     C === Local variables ===
29     C i,j,k,bi,bj - Loop counters
30    
31     INTEGER i, j, k, bi, bj
32    
33     C-----------------------------------------------------------------------
34     C Initialize KL variables KLviscAr, KLdiffKrT
35     C-----------------------------------------------------------------------
36    
37     DO bj = myByLo(myThid), myByHi(myThid)
38     DO bi = myBxLo(myThid), myBxHi(myThid)
39     DO k = 1, Nr
40     DO j = 1-OLy, sNy+OLy
41     DO i = 1-OLx, sNx+OLx
42     KLviscAr (i,j,k,bi,bj) = viscArNr(k)
43 jmc 1.2 KLdiffKr (i,j,k,bi,bj) = diffKrNrS(k)
44 jmc 1.1 ENDDO
45     ENDDO
46     ENDDO
47     ENDDO
48     ENDDO
49    
50     #endif /* ALLOW_KL10 */
51    
52     RETURN
53     END
  ViewVC Help
Powered by ViewVC 1.1.22