/[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.16 by jmc, Wed Jan 20 01:32:50 2010 UTC revision 1.17 by heimbach, Wed May 21 10:45:33 2014 UTC
# Line 5  C $Name$ Line 5  C $Name$
5  #ifdef ALLOW_GMREDI  #ifdef ALLOW_GMREDI
6  #include "GMREDI_OPTIONS.h"  #include "GMREDI_OPTIONS.h"
7  #endif  #endif
8    #ifdef ALLOW_SALT_PLUME
9    #include "SALT_PLUME_OPTIONS.h"
10    #endif
11    
12        SUBROUTINE KPP_TRANSPORT_S (        SUBROUTINE KPP_TRANSPORT_S (
13       I     iMin,iMax,jMin,jMax,bi,bj,k,km1,       I     iMin,iMax,jMin,jMax,bi,bj,k,km1,
# Line 67  C     I, J - Loop counters Line 70  C     I, J - Loop counters
70    
71  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
72    
73    catn: will not apply if use SALT_PLUME_VOLUME because volumes
74    c      will be exchanged
75  #ifdef ALLOW_SALT_PLUME  #ifdef ALLOW_SALT_PLUME
76        IF ( useSALT_PLUME ) THEN        IF ( useSALT_PLUME ) THEN
77    #ifndef SALT_PLUME_VOLUME
78           tmpFac1 = 1. _d 0           tmpFac1 = 1. _d 0
79    #else
80             tmpFac1 = 0. _d 0
81    #endif /* ndef SALT_PLUME_VOLUME */
82        ELSE        ELSE
83           tmpFac1 = 0. _d 0           tmpFac1 = 0. _d 0
84        ENDIF        ENDIF
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17
  ViewVC Help
Powered by ViewVC 1.1.22