/[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.5 by jmc, Fri May 7 21:33:34 2004 UTC revision 1.6 by jmc, Mon Jul 12 20:20:03 2004 UTC
# Line 343  C--   - if esurp > 0 : end Line 343  C--   - if esurp > 0 : end
343  C--     Return atmospheric fluxes in evpAtm & flxSW (same sign and units):  C--     Return atmospheric fluxes in evpAtm & flxSW (same sign and units):
344          evpAtm(i,j) = frwAtm          evpAtm(i,j) = frwAtm
345          flxSW (i,j) = flxAtm(i,j)          flxSW (i,j) = flxAtm(i,j)
346    
347    #ifdef ATMOSPHERIC_LOADING
348    C--     Compute Sea-Ice Loading (= mass of sea-ice + snow / area unit)
349            sIceLoad(i,j,bi,bj) = ( snowHeight(i,j,bi,bj)*rhos
350         &                         + iceHeight(i,j,bi,bj)*rhoi
351         &                        )*iceMask(i,j,bi,bj)
352    #endif
353    
354         ENDDO         ENDDO
355        ENDDO        ENDDO
356    
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22