/[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.8 by gforget, Mon Mar 5 14:52:16 2012 UTC revision 1.9 by gforget, Thu Dec 27 23:05:47 2012 UTC
# Line 173  c salinity tracer: no specific process Line 173  c salinity tracer: no specific process
173  c "ice concentration" tracer: no specific process  c "ice concentration" tracer: no specific process
174        elseif (SItrName(iTr).EQ.'ridge') then        elseif (SItrName(iTr).EQ.'ridge') then
175  c simple, made up, ice surface roughness index prototype  c simple, made up, ice surface roughness index prototype
 #ifndef SEAICE_GROWTH_LEGACY  
176         DO J=1,sNy         DO J=1,sNy
177          DO I=1,sNx          DO I=1,sNx
178  c ridging increases roughness  c ridging increases roughness
# Line 187  c ice melt reduces ridges/roughness Line 186  c ice melt reduces ridges/roughness
186            SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)*tmpscal1            SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)*tmpscal1
187          ENDDO          ENDDO
188         ENDDO         ENDDO
 #endif  
189        endif        endif
190  c 3) ice-ocean tracer exchange/mapping to external variables  c 3) ice-ocean tracer exchange/mapping to external variables
191  c ==========================================================  c ==========================================================
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22