/[MITgcm]/MITgcm/pkg/thsice/thsice_step_fwd.F
ViewVC logotype

Diff of /MITgcm/pkg/thsice/thsice_step_fwd.F

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

revision 1.10 by jmc, Sun Jul 10 01:24:25 2005 UTC revision 1.11 by jmc, Mon Jul 11 19:00:34 2005 UTC
# Line 168  C--    Update Sea-Ice state : Line 168  C--    Update Sea-Ice state :
168        IF ( useDiagnostics ) THEN        IF ( useDiagnostics ) THEN
169          tmpFac = 1. _d 0          tmpFac = 1. _d 0
170          CALL DIAGNOSTICS_FRACT_FILL(          CALL DIAGNOSTICS_FRACT_FILL(
171       I                   snowPrc,   iceMask,tmpFac,'SIsnwPrc',       I                   snowPrc,   iceMask,tmpFac,1,'SIsnwPrc',
172       I                   0,1,1,bi,bj,myThid)       I                   0,1,1,bi,bj,myThid)
173        ENDIF        ENDIF
174  #endif /* ALLOW_DIAGNOSTICS */  #endif /* ALLOW_DIAGNOSTICS */
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22