/[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.42 by jmc, Mon Jun 10 20:05:15 2013 UTC revision 1.43 by jmc, Tue Jun 11 01:34:47 2013 UTC
# Line 181  C-- Line 181  C--
181    
182  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
183        IF ( useDiagnostics ) THEN        IF ( useDiagnostics ) THEN
184    # ifdef OLD_THSICE_CALL_SEQUENCE
185          CALL DIAGNOSTICS_FILL(iceMask,'SI_FrcFx',0,1,1,bi,bj,myThid)          CALL DIAGNOSTICS_FILL(iceMask,'SI_FrcFx',0,1,1,bi,bj,myThid)
186    # endif
187          CALL DIAGNOSTICS_FRACT_FILL( snowPrc,          CALL DIAGNOSTICS_FRACT_FILL( snowPrc,
188       I                       iceMask(1-OLx,1-OLy,bi,bj), oneRL, 1,       I                       iceMask(1-OLx,1-OLy,bi,bj), oneRL, 1,
189       I                              'SIsnwPrc', 0,1,2,bi,bj,myThid )       I                              'SIsnwPrc', 0,1,2,bi,bj,myThid )
Legend:
Removed from v.1.42  
changed lines
  Added in v.1.43
  ViewVC Help
Powered by ViewVC 1.1.22