/[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.2 by dimitri, Wed Nov 28 17:55:36 2007 UTC revision 1.3 by dimitri, Mon Jun 15 23:42:46 2009 UTC
# Line 25  C     == Global variables == Line 25  C     == Global variables ==
25  #include "SIZE.h"  #include "SIZE.h"
26  #include "EEPARAMS.h"  #include "EEPARAMS.h"
27  #include "PARAMS.h"  #include "PARAMS.h"
28    #include "GRID.h"
29  #include "FFIELDS.h"  #include "FFIELDS.h"
30  #include "DYNVARS.h"  #include "DYNVARS.h"
31  #include "SALT_PLUME.h"  #include "SALT_PLUME.h"
# Line 54  C     ks                   :: surface le Line 55  C     ks                   :: surface le
55        ENDIF        ENDIF
56    
57        DO j = jMin, jMax        DO j = jMin, jMax
58           DO i = iMin, iMax         DO i = iMin, iMax
59              surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)          surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
60       &           - saltPlumeFlux(i,j,bi,bj) * mass2rUnit       &       - saltPlumeFlux(i,j,bi,bj) * mass2rUnit
61           ENDDO         ENDDO
62        ENDDO        ENDDO
63    
64          IF ( .NOT. SaltPlumeSouthernOcean ) THEN
65           DO j = jMin, jMax
66            DO i = iMin, iMax
67             IF ( YC(I,J,bi,bj) .LT. 0.0 _d 0 )
68         &        saltPlumeFlux(i,j,bi,bj) = 0.0 _d 0
69            ENDDO
70           ENDDO
71          ENDIF
72    
73  #endif /* ALLOW_SALT_PLUME */  #endif /* ALLOW_SALT_PLUME */
74        
75        RETURN        RETURN
76        END        END
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22