/[MITgcm]/MITgcm/pkg/seaice/seaice_tracer_phys.F
ViewVC logotype

Diff of /MITgcm/pkg/seaice/seaice_tracer_phys.F

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

revision 1.10 by jmc, Sun Aug 11 02:31:12 2013 UTC revision 1.11 by torge, Sat Aug 23 20:22:16 2014 UTC
# Line 90  c ================================== Line 90  c ==================================
90          DIAGarray(I,J,5+(iTr-1)*5) =          DIAGarray(I,J,5+(iTr-1)*5) =
91       &    HEFFprev*SItracer(i,j,bi,bj,iTr) + SItrBucket(i,j,bi,bj,iTr)       &    HEFFprev*SItracer(i,j,bi,bj,iTr) + SItrBucket(i,j,bi,bj,iTr)
92  #endif  #endif
93  c apply the sequence of thermodynamics increments to actual traceur  c apply the sequence of thermodynamics increments to actual tracer
94  c (see seaice_growth.F)  c (see seaice_growth.F)
95  c (jTh=1 tendency due to ice-ocean interaction)  c (jTh=1 tendency due to ice-ocean interaction)
96  c (jTh=2 tendency due to the atmosphere, over ice covered part)  c (jTh=2 tendency due to the atmosphere, over ice covered part)
# Line 223  c should work for both constant and vari Line 223  c should work for both constant and vari
223       &  *HEFFM(I,J,bi,bj)/SEAICE_deltaTtherm*SEAICE_rhoIce       &  *HEFFM(I,J,bi,bj)/SEAICE_deltaTtherm*SEAICE_rhoIce
224  #endif  #endif
225  c empty bucket  c empty bucket
226          SItrBucket(i,j,bi,bj,iTr)=0. _d 0  c  but not for 'grease' (see seaice_growth.F)
227            if (SItrName(iTr).NE.'grease')
228         &      SItrBucket(i,j,bi,bj,iTr)=0. _d 0
229         ENDDO         ENDDO
230        ENDDO        ENDDO
231    
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22