/[MITgcm]/MITgcm_contrib/atnguyen/code_21Dec2012_saltplume/kpp_routines.F
ViewVC logotype

Diff of /MITgcm_contrib/atnguyen/code_21Dec2012_saltplume/kpp_routines.F

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

revision 1.5 by atn, Fri May 2 05:46:01 2014 UTC revision 1.6 by atn, Sat May 3 06:10:54 2014 UTC
# Line 599  CADJ &     shape = (/ (sNx+2*OLx)*(sNy+2 Line 599  CADJ &     shape = (/ (sNx+2*OLx)*(sNy+2
599       U         worka,       U         worka,
600       I         myTime, myIter, myThid )       I         myTime, myIter, myThid )
601          do i = 1, imt          do i = 1, imt
602             bfsfc(i) = bfsfc(i) + boplume(i) * (worka(i))             bfsfc(i) = bfsfc(i) + boplume(i,1) * (worka(i))
603          enddo          enddo
604  #else /* def SALT_PLUME_VOLUME */  #else /* def SALT_PLUME_VOLUME */
605          DO i = 1, imt          DO i = 1, imt
# Line 706  CADJ &     shape = (/ (sNx+2*OLx)*(sNy+2 Line 706  CADJ &     shape = (/ (sNx+2*OLx)*(sNy+2
706       U         worka,       U         worka,
707       I         myTime, myIter, myThid )       I         myTime, myIter, myThid )
708          do i = 1, imt          do i = 1, imt
709             bfsfc(i) = bfsfc(i) + boplume(i) * (worka(i))             bfsfc(i) = bfsfc(i) + boplume(i,1) * (worka(i))
710          enddo          enddo
711  #else /* def SALT_PLUME_VOLUME */  #else /* def SALT_PLUME_VOLUME */
712          DO i = 1, imt          DO i = 1, imt
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22