/[MITgcm]/MITgcm/pkg/salt_plume/salt_plume_forcing_surf.F
ViewVC logotype

Diff of /MITgcm/pkg/salt_plume/salt_plume_forcing_surf.F

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

revision 1.1 by dimitri, Wed Nov 28 00:18:17 2007 UTC revision 1.2 by dimitri, Wed Nov 28 17:55:36 2007 UTC
# Line 9  C     !INTERFACE: Line 9  C     !INTERFACE:
9        SUBROUTINE SALT_PLUME_FORCING_SURF(        SUBROUTINE SALT_PLUME_FORCING_SURF(
10       I                            bi, bj, iMin, iMax, jMin, jMax,       I                            bi, bj, iMin, iMax, jMin, jMax,
11       I                            myTime,myIter,myThid )       I                            myTime,myIter,myThid )
12    
13  C     !DESCRIPTION: \bv  C     !DESCRIPTION: \bv
14  C     *==========================================================*  C     *==========================================================*
15  C     | S/R SALT_PLUME_FORCING_SURF  C     | S/R SALT_PLUME_FORCING_SURF
# Line 28  C     == Global variables == Line 29  C     == Global variables ==
29  #include "DYNVARS.h"  #include "DYNVARS.h"
30  #include "SALT_PLUME.h"  #include "SALT_PLUME.h"
31    
32  C !INPUT PARAMETERS: ===================================================  C     !INPUT PARAMETERS:
33  C  bi,bj                :: tile indices  C     bi,bj                :: tile indices
34  C  myTime               :: model time  C     myTime               :: model time
35  C  myIter               :: time-step number  C     myIter               :: time-step number
36  C  myThid               :: thread number  C     myThid               :: thread number
37        INTEGER bi, bj, iMin, iMax, jMin, jMax        INTEGER bi, bj, iMin, iMax, jMin, jMax
38        _RL myTime        _RL myTime
39        INTEGER myIter        INTEGER myIter
40        INTEGER myThid        INTEGER myThid
41    CEOP
42    
43    #ifdef ALLOW_SALT_PLUME
44    
45  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
 C     == Local variables ==  
46  C     i,j                  :: loop indices  C     i,j                  :: loop indices
47  C     ks                   :: surface level index  C     ks                   :: surface level index
48        INTEGER i, j, ks        INTEGER i, j, ks
 CEOP  
49    
50        IF ( usingPCoords ) THEN        IF ( usingPCoords ) THEN
51           ks = Nr           ks = Nr
# Line 57  CEOP Line 59  CEOP
59       &           - saltPlumeFlux(i,j,bi,bj) * mass2rUnit       &           - saltPlumeFlux(i,j,bi,bj) * mass2rUnit
60           ENDDO           ENDDO
61        ENDDO        ENDDO
62        
63    #endif /* ALLOW_SALT_PLUME */
64        
65        RETURN        RETURN
66        END        END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22