Changeset 3772 for branches/2012/dev_MERGE_2012/NEMOGCM/NEMO
- Timestamp:
- 2013-02-06T16:34:04+01:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_core.F90
r3680 r3772 395 395 & - sf(jp_prec)%fnow(:,:,1) * rn_pfac ) * tmask(:,:,1) 396 396 !CDIR COLLAPSE 397 qns(:,:) = zqlw(:,:) - zqsb(:,:) - zqla(:,:) & ! Downward Non Solar flux398 & - sf(jp_snow)%fnow(:,:,1) * lfus& ! remove latent melting heat for solid precip399 & - zevap(:,:) * pst(:,:) * rcp & ! remove evap heat content at SST400 & + ( sf(jp_prec)%fnow(:,:,1) - sf(jp_snow)%fnow(:,:,1) ) & ! add liquid precip heat content at Tair401 & * ( sf(jp_tair)%fnow(:,:,1) - rt0 ) * rcp &402 & + sf(jp_snow)%fnow(:,:,1) & ! add solid precip heat content at min(Tair,Tsnow)397 qns(:,:) = zqlw(:,:) - zqsb(:,:) - zqla(:,:) & ! Downward Non Solar flux 398 & - sf(jp_snow)%fnow(:,:,1) * rn_pfac * lfus & ! remove latent melting heat for solid precip 399 & - zevap(:,:) * pst(:,:) * rcp & ! remove evap heat content at SST 400 & + ( sf(jp_prec)%fnow(:,:,1) - sf(jp_snow)%fnow(:,:,1) ) * rn_pfac & ! add liquid precip heat content at Tair 401 & * ( sf(jp_tair)%fnow(:,:,1) - rt0 ) * rcp & 402 & + sf(jp_snow)%fnow(:,:,1) * rn_pfac & ! add solid precip heat content at min(Tair,Tsnow) 403 403 & * ( MIN( sf(jp_tair)%fnow(:,:,1), rt0_snow ) - rt0 ) * cpic 404 404 !
Note: See TracChangeset
for help on using the changeset viewer.