/[MITgcm]/MITgcm/pkg/thsice/thsice_main.F
ViewVC logotype

Diff of /MITgcm/pkg/thsice/thsice_main.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch 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(
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22