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

Annotation of /MITgcm/model/src/ini_mixing.F

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

Revision 1.3 - (hide annotations) (download)
Sun Oct 17 23:03:38 2004 UTC (19 years, 7 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint57m_post, checkpoint57g_pre, checkpoint57s_post, checkpoint58b_post, checkpoint57b_post, checkpoint57g_post, checkpoint56b_post, checkpoint57y_post, checkpoint57r_post, checkpoint57d_post, checkpoint57i_post, checkpoint58, checkpoint57, checkpoint56, checkpoint58f_post, checkpoint57n_post, checkpoint58d_post, checkpoint58a_post, checkpoint57z_post, checkpoint58t_post, checkpoint55i_post, checkpoint58m_post, checkpoint57l_post, checkpoint57t_post, checkpoint57v_post, checkpoint57f_post, checkpoint57a_post, checkpoint57h_pre, checkpoint57h_post, checkpoint57y_pre, checkpoint58o_post, checkpoint57c_post, checkpoint58p_post, checkpoint58q_post, checkpoint58e_post, mitgcm_mapl_00, checkpoint57c_pre, checkpoint58r_post, checkpoint55j_post, checkpoint55h_post, checkpoint58n_post, checkpoint57e_post, checkpoint57p_post, checkpint57u_post, checkpoint57q_post, eckpoint57e_pre, checkpoint58k_post, checkpoint56a_post, checkpoint58l_post, checkpoint57h_done, checkpoint57j_post, checkpoint57f_pre, checkpoint58g_post, checkpoint58h_post, checkpoint56c_post, checkpoint58j_post, checkpoint57a_pre, checkpoint57o_post, checkpoint57k_post, checkpoint57w_post, checkpoint58i_post, checkpoint57x_post, checkpoint58c_post, checkpoint58u_post, checkpoint58s_post
Changes since 1.2: +6 -6 lines 
allow to set a vertical profile of vertical diffusivity for T & S
1 jmc 1.3 C $Header: /u/gcmpack/MITgcm/model/src/ini_mixing.F,v 1.2 2001/09/26 18:09:15 cnh Exp $
2     C $Name: $
3 heimbach 1.1
4     #include "CPP_OPTIONS.h"
5    
6 cnh 1.2 CBOP
7     C !ROUTINE: INI_MIXING
8     C !INTERFACE:
9 heimbach 1.1 SUBROUTINE INI_MIXING( myThid )
10 cnh 1.2 C !DESCRIPTION: \bv
11     C *==========================================================*
12     C | SUBROUTINE INI_MIXING
13     C | o Initialise diapycnal diffusivity to default constant val.
14     C *==========================================================*
15     C \ev
16    
17     C !USES:
18 heimbach 1.1 IMPLICIT NONE
19     C === Global variables ===
20     #include "SIZE.h"
21     #include "EEPARAMS.h"
22     #include "PARAMS.h"
23     #include "GRID.h"
24     #include "DYNVARS.h"
25    
26 cnh 1.2 C !INPUT/OUTPUT PARAMETERS:
27 heimbach 1.1 C == Routine arguments ==
28     C myThid - Number of this instance
29     INTEGER myThid
30    
31 cnh 1.2 C !LOCAL VARIABLES:
32 heimbach 1.1 C == Local variables ==
33     C bi,bj - Loop counters
34     C I,J
35     INTEGER bi, bj
36     INTEGER i, j, k
37 cnh 1.2 CEOP
38 heimbach 1.1
39     DO bj = myByLo(myThid), myByHi(myThid)
40     DO bi = myBxLo(myThid), myBxHi(myThid)
41 jmc 1.3 DO k=1,Nr
42     DO j=1,sNy
43     DO i=1,sNx
44 heimbach 1.1 #if (defined (ALLOW_AUTODIFF_TAMC) && defined (ALLOW_DIFFKR_CONTROL))
45 jmc 1.3 diffKr(i,j,k,bi,bj) = diffKrNrS(k)
46 heimbach 1.1 #endif
47     #if (defined (ALLOW_AUTODIFF_TAMC) && defined (ALLOW_KAPGM_CONTROL))
48     KapGM(i,j,k,bi,bj) = GMkbackground
49     #endif
50     ENDDO
51     ENDDO
52     ENDDO
53     ENDDO
54     ENDDO
55    
56     #if (defined (ALLOW_AUTODIFF_TAMC) && defined (ALLOW_DIFFKR_CONTROL))
57     _EXCH_XYZ_R8(diffKr , myThid )
58     #endif
59     #if (defined (ALLOW_AUTODIFF_TAMC) && defined (ALLOW_KAPGM_CONTROL))
60     _EXCH_XYZ_R8(KapGM, myThid )
61     #endif
62    
63     RETURN
64     END
  ViewVC Help
Powered by ViewVC 1.1.22