Parent Directory | Revision Log | Revision Graph | Patch
revision 1.8 by jmc, Thu May 25 18:03:24 2006 UTC | revision 1.9 by mlosch, Tue May 30 22:49:00 2006 UTC | |
---|---|---|
# | Line 185 CADJ STORE qnet = comlev1, key = iice | Line 185 CADJ STORE qnet = comlev1, key = iice |
185 | I iMin,iMax,jMin,jMax, bi,bj, myThid ) | I iMin,iMax,jMin,jMax, bi,bj, myThid ) |
186 | ENDIF | ENDIF |
187 | #endif | #endif |
188 | #ifdef ALLOW_EXF | |
189 | IF ( useEXF ) THEN | |
190 | CALL THSICE_MAP_EXF( | |
191 | I iceMask, | |
192 | O prcAtm, snowPrc(1-OLx,1-OLy,bi,bj), | |
193 | O icFlxSW(1-OLx,1-OLy,bi,bj), | |
194 | I iMin,iMax,jMin,jMax, bi,bj, myThid ) | |
195 | ENDIF | |
196 | #endif | |
197 | ||
198 | ||
199 | CALL THSICE_STEP_TEMP( | CALL THSICE_STEP_TEMP( |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |