/[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.41 by jmc, Tue Jun 4 22:52:58 2013 UTC revision 1.42 by jmc, Mon Jun 10 20:05:15 2013 UTC
# Line 101  C     snowFac   :: snowing refreshing-ag Line 101  C     snowFac   :: snowing refreshing-ag
101        _RL snowFac        _RL snowFac
102        _RL cphm        _RL cphm
103        _RL opFrac, icFrac        _RL opFrac, icFrac
 #ifdef ALLOW_DIAGNOSTICS  
       _RL tmpFac  
 #endif  
104        INTEGER i,j        INTEGER i,j
105        LOGICAL dBugFlag        LOGICAL dBugFlag
106    
# Line 184  C-- Line 181  C--
181    
182  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
183        IF ( useDiagnostics ) THEN        IF ( useDiagnostics ) THEN
         tmpFac = 1. _d 0  
184          CALL DIAGNOSTICS_FILL(iceMask,'SI_FrcFx',0,1,1,bi,bj,myThid)          CALL DIAGNOSTICS_FILL(iceMask,'SI_FrcFx',0,1,1,bi,bj,myThid)
185          CALL DIAGNOSTICS_FRACT_FILL(          CALL DIAGNOSTICS_FRACT_FILL( snowPrc,
186       I                   snowPrc,   iceMask,tmpFac,1,'SIsnwPrc',       I                       iceMask(1-OLx,1-OLy,bi,bj), oneRL, 1,
187       I                   0,1,2,bi,bj,myThid)       I                              'SIsnwPrc', 0,1,2,bi,bj,myThid )
188          CALL DIAGNOSTICS_FRACT_FILL(          CALL DIAGNOSTICS_FRACT_FILL( siceAlb, iceMask, oneRL, 1,
189       I                   siceAlb,   iceMask,tmpFac,1,'SIalbedo',       I                              'SIalbedo', 0,1,1,bi,bj,myThid )
      I                   0,1,1,bi,bj,myThid)  
190        ENDIF        ENDIF
191  #endif /* ALLOW_DIAGNOSTICS */  #endif /* ALLOW_DIAGNOSTICS */
192        DO j = jMin, jMax        DO j = jMin, jMax
Legend:
Removed from v.1.41  
changed lines
  Added in v.1.42
  ViewVC Help
Powered by ViewVC 1.1.22