Changeset 810
- Timestamp:
- 2008-02-06T17:36:03+01:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_001_SBC/NEMO/OPA_SRC/SBC/sbcblk_core.F90
r802 r810 349 349 INTEGER :: ji, jj ! dummy loop indices 350 350 REAL(wp) :: zst3 351 REAL(wp) :: zcoef_wnorm, zcoef_dqlw, zcoef_dqla, zcoef_dqsb, zcoef_fr12 351 REAL(wp) :: zcoef_wnorm, zcoef_dqlw, zcoef_dqla, zcoef_dqsb 352 REAL(wp) :: zcoef_frca ! fractional cloud amount 352 353 REAL(wp) :: zwnorm_f, zwndi_f , zwndj_f ! relative wind module and components at F-point 353 354 REAL(wp) :: zwndi_t , zwndj_t ! relative wind components at T-point … … 362 363 zcoef_wnorm = rhoa * Cice 363 364 zcoef_dqlw = 4.0 * 0.95 * Stef 364 zcoef_dqla = -Ls * Cice * 0.98 * 11637800. / (rhoa*rhoa)* (-5897.8)365 zcoef_dqla = -Ls * Cice * 11637800. * (-5897.8) 365 366 zcoef_dqsb = rhoa * cpa * Cice 366 zcoef_fr 12 = 1.0 - 0.3 !!!gm ??? ! sf(jp_snow)%fnow(:,:)367 zcoef_frca = 1.0 - 0.3 367 368 368 369 !!gm brutal.... … … 452 453 ! FRACTIONs of net shortwave radiation which is not absorbed in the 453 454 ! thin surface layer and penetrates inside the ice cover 454 ! ( Maykut and Untersteiner, 1971 ; E lbert and Curry, 1993 )455 ! ( Maykut and Untersteiner, 1971 ; Ebert and Curry, 1993 ) 455 456 456 457 !CDIR COLLAPSE 457 p_fr1(:,:) = ( 0.18 * zcoef_fr12 + 0.35 * sf(jp_snow)%fnow(:,:))458 !CDIR COLLAPSE 459 p_fr2(:,:) = ( 0.82 * zcoef_fr12 + 0.65 * sf(jp_snow)%fnow(:,:))458 p_fr1(:,:) = ( 0.18 * ( 1.0 - zcoef_frca ) + 0.35 * zcoef_frca ) 459 !CDIR COLLAPSE 460 p_fr2(:,:) = ( 0.82 * ( 1.0 - zcoef_frca ) + 0.65 * zcoef_frca ) 460 461 461 462 !CDIR COLLAPSE
Note: See TracChangeset
for help on using the changeset viewer.