/[MITgcm]/MITgcm/pkg/kpp/kpp_transport_s.F
ViewVC logotype

Diff of /MITgcm/pkg/kpp/kpp_transport_s.F

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

revision 1.15 by atn, Fri Dec 21 02:54:34 2007 UTC revision 1.16 by jmc, Wed Jan 20 01:32:50 2010 UTC
# Line 6  C $Name$ Line 6  C $Name$
6  #include "GMREDI_OPTIONS.h"  #include "GMREDI_OPTIONS.h"
7  #endif  #endif
8    
9        subroutine KPP_TRANSPORT_S (        SUBROUTINE KPP_TRANSPORT_S (
10       I     iMin,iMax,jMin,jMax,bi,bj,k,km1,       I     iMin,iMax,jMin,jMax,bi,bj,k,km1,
11       O     df,       O     df,
12       I     myTime, myIter, myThid )       I     myTime, myIter, myThid )
13  C     /==========================================================\  C     *==========================================================*
14  C     | o SUBROUTINE KPP_TRANSPORT_S                             |  C     | o SUBROUTINE KPP_TRANSPORT_S
15  C     |   Add non local KPP transport term (ghat) to diffusive   |  C     |   Add non local KPP transport term (ghat) to diffusive
16  C     |   salinity flux.                                         |  C     |   salinity flux.
17  C     |==========================================================|  C     *==========================================================*
18  C     | The nonlocal transport term is nonzero only for scalars  |  C     | The nonlocal transport term is nonzero only for scalars
19  C     | in unstable (convective) forcing conditions.             |  C     | in unstable (convective) forcing conditions.
20  C     | Note: KPPdiffKzS(-,k) is defined at the top of grid cell |  C     | Note: KPPdiffKzS(-,k) is defined at the top of grid cell
21  C     |       k while KPPghat(i,j,k,bi,bj) is defined at the     |  C     |       k while KPPghat(i,j,k,bi,bj) is defined at the
22  C     |       bottom of grid cell k.                             |  C     |       bottom of grid cell k.
23  C     |       For K=1, KPPdiffKzS(-,k) = 0 which insures no flux |  C     |       For K=1, KPPdiffKzS(-,k) = 0 which insures no flux
24  C     |       through the surface.                               |  C     |       through the surface.
25  C     \==========================================================/  C     *==========================================================*
26        IMPLICIT NONE        IMPLICIT NONE
27    
28  C     == GLobal variables ==  C     == GLobal variables ==
# Line 58  C     myThid :: My Thread Id. number Line 58  C     myThid :: My Thread Id. number
58  C     == Local variables ==  C     == Local variables ==
59  C     I, J - Loop counters  C     I, J - Loop counters
60        INTEGER I, J        INTEGER I, J
61        _RL tmpFac, tmpFac1  #ifdef ALLOW_GMREDI
62          _RL tmpFac
63    #endif
64    #ifdef ALLOW_SALT_PLUME
65          _RL tmpFac1
66    #endif
67    
68    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
69    
70  #ifdef ALLOW_SALT_PLUME  #ifdef ALLOW_SALT_PLUME
71        IF ( useSALT_PLUME ) THEN        IF ( useSALT_PLUME ) THEN
# Line 108  C     I, J - Loop counters Line 114  C     I, J - Loop counters
114    
115  #endif /* ALLOW_GMREDI */  #endif /* ALLOW_GMREDI */
116    
   
117  #endif /* ALLOW_KPP and KPP_GHAT */  #endif /* ALLOW_KPP and KPP_GHAT */
118    
119        RETURN        RETURN
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22