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 |