/[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.3 by dimitri, Mon Jun 15 23:42:46 2009 UTC revision 1.4 by dimitri, Tue Jul 6 00:14:29 2010 UTC
# Line 61  C     ks                   :: surface le Line 61  C     ks                   :: surface le
61         ENDDO         ENDDO
62        ENDDO        ENDDO
63    
       IF ( .NOT. SaltPlumeSouthernOcean ) THEN  
        DO j = jMin, jMax  
         DO i = iMin, iMax  
          IF ( YC(I,J,bi,bj) .LT. 0.0 _d 0 )  
      &        saltPlumeFlux(i,j,bi,bj) = 0.0 _d 0  
         ENDDO  
        ENDDO  
       ENDIF  
   
64  #endif /* ALLOW_SALT_PLUME */  #endif /* ALLOW_SALT_PLUME */
65    
66        RETURN        RETURN
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22