Parent Directory | Revision Log | Revision Graph | Patch
revision 1.21 by heimbach, Tue Apr 17 23:42:33 2007 UTC | revision 1.22 by jmc, Thu Apr 19 04:31:28 2007 UTC | |
---|---|---|
# | Line 157 C-- | Line 157 C-- |
157 | #ifdef ALLOW_DIAGNOSTICS | #ifdef ALLOW_DIAGNOSTICS |
158 | IF ( useDiagnostics ) THEN | IF ( useDiagnostics ) THEN |
159 | tmpFac = 1. _d 0 | tmpFac = 1. _d 0 |
160 | CALL DIAGNOSTICS_FILL(iceMask,'SI_FrcFx',0,1,1,bi,bj,myThid) | |
161 | CALL DIAGNOSTICS_FRACT_FILL( | CALL DIAGNOSTICS_FRACT_FILL( |
162 | I snowPrc, iceMask,tmpFac,1,'SIsnwPrc', | I snowPrc, iceMask,tmpFac,1,'SIsnwPrc', |
163 | I 0,1,1,bi,bj,myThid) | I 0,1,1,bi,bj,myThid) |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |