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

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

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

revision 1.6 by atn, Fri May 2 05:46:01 2014 UTC revision 1.7 by atn, Sat May 3 06:10:54 2014 UTC
# Line 404  c--------------------------------------- Line 404  c---------------------------------------
404          temp1(i,j,1) = saltPlumeFlux(i,j,bi,bj)          temp1(i,j,1) = saltPlumeFlux(i,j,bi,bj)
405          temp2(i,j,1) = 0. _d 0          temp2(i,j,1) = 0. _d 0
406          DO k=2,Nr          DO k=2,Nr
407           temp1(i,j,k) = 0. _ 0           temp1(i,j,k) = 0. _d 0
408           temp2(i,j,k) = 0. _ 0           temp2(i,j,k) = 0. _d 0
409          ENDDO          ENDDO
410  #else /* def SALT_PLUME_VOLUME */  #else /* def SALT_PLUME_VOLUME */
411          DO k=1,Nr          DO k=1,Nr
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22