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

Diff of /MITgcm/model/src/calc_diffusivity.F

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

revision 1.15 by heimbach, Mon Aug 13 18:05:26 2001 UTC revision 1.16 by cnh, Wed Sep 26 18:09:13 2001 UTC
# Line 3  C $Name$ Line 3  C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
5    
6  CStartOfInterFace  CBOP
7    C     !ROUTINE: CALC_DIFFUSIVITY
8    C     !INTERFACE:
9        SUBROUTINE CALC_DIFFUSIVITY(        SUBROUTINE CALC_DIFFUSIVITY(
10       I        bi,bj,iMin,iMax,jMin,jMax,K,       I        bi,bj,iMin,iMax,jMin,jMax,K,
11       I        maskUp,       I        maskUp,
12       O        KappaRT,KappaRS,       O        KappaRT,KappaRS,
13       I        myThid)       I        myThid)
14    
15  C     /==========================================================\  C     !DESCRIPTION: \bv
16  C     | SUBROUTINE CALC_DIFFUSIVITY                              |  C     *==========================================================*
17  C     | o Calculate net diffusivity                              |  C     | SUBROUTINE CALC_DIFFUSIVITY                              
18  C     \==========================================================/  C     | o Calculate net vertical diffusivity                              
19        IMPLICIT NONE  C     *==========================================================*
20    C     | Combines spatially varying diffusion coefficients from
21    C     | KPP and/or GM and/or convective stability test.
22    C     *==========================================================*
23    C     \ev
24    
25    C     !USES:
26          IMPLICIT NONE
27  C     == GLobal variables ==  C     == GLobal variables ==
28  #include "SIZE.h"  #include "SIZE.h"
29  #include "EEPARAMS.h"  #include "EEPARAMS.h"
# Line 23  C     == GLobal variables == Line 31  C     == GLobal variables ==
31  #include "DYNVARS.h"  #include "DYNVARS.h"
32  #include "GRID.h"  #include "GRID.h"
33    
34    C     !INPUT/OUTPUT PARAMETERS:
35  C     == Routine arguments ==  C     == Routine arguments ==
36  C     bi, bj, iMin, iMax, jMin, jMax - Range of points for which calculation  C     bi, bj, :: Range of points for which calculation
37  C     maskUp  - land/water mask for Wvel points (above tracer level)  C     iMin,      is performed.
38  C     myThid - Instance number for this innvocation of CALC_COMMON_FACTORS  C     iMax,
39  C  C     jMin,
40    C     jMax
41    C     maskUp  :: land/water mask for Wvel points (above tracer level)
42    C     myThid  :: Instance number for this innvocation of CALC_DIFFUSIVITY
43    C     KappaRT :: Net diffusivity for temperature
44    C     KappaRS :: Net diffusivity for salinity
45        INTEGER bi,bj,iMin,iMax,jMin,jMax,K        INTEGER bi,bj,iMin,iMax,jMin,jMax,K
46        _RS maskUp(1-Olx:sNx+Olx,1-Oly:sNy+Oly)        _RS maskUp(1-Olx:sNx+Olx,1-Oly:sNy+Oly)
47        _RL KappaRT(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr)        _RL KappaRT(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr)
48        _RL KappaRS(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr)        _RL KappaRS(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr)
49        INTEGER myThid        INTEGER myThid
 CEndOfInterface  
50    
51    C     !LOCAL VARIABLES:
52  C     == Local variables ==  C     == Local variables ==
53  C     I, J, K - Loop counters  C     I, J :: Loop counters
54        INTEGER i,j        INTEGER i,j
55    CEOP
56    
57        DO j=jMin,jMax        DO j=jMin,jMax
58         DO i=iMin,iMax         DO i=iMin,iMax
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22