Changeset 809 for trunk/NEMO/OPA_SRC
- Timestamp:
- 2008-02-06T17:19:08+01:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/SBC/flx_core.h90
r719 r809 564 564 565 565 ! d qla_ice/ d zsss 566 dqla_ice(:,:) = -Ls*Cice* 0.98*11637800/(rhoa*rhoa) &566 dqla_ice(:,:) = -Ls*Cice*11637800 567 567 * (-5897.8)/(zsss(:,:)*zsss(:,:)) & 568 568 * exp(-5897.8/zsss(:,:)) * dUnormt(:,:) … … 576 576 ! FRACTION of net shortwave radiation which is not absorbed in the 577 577 ! thin surface layer and penetrates inside the ice cover 578 ! ( Maykut and Untersteiner, 1971 ; Elbert and Curry, 1993 ) 579 580 catm1(:,:) = 1.0 - 0.3 ! flxnow(:,:,8) 581 fr1_i0(:,:) = & 582 (0.18 * catm1(:,:) + 0.35 * flxnow(:,:,8)) 583 fr2_i0(:,:) = & 584 (0.82 * catm1(:,:) + 0.65 * flxnow(:,:,8)) 585 578 ! ( Maykut and Untersteiner, 1971 ; Ebert and Curry, 1993 ) 579 580 catm1(:,:) = 1.0 - 0.3 581 fr1_i0(:,:) = 0.18 * ( 1.0 - catm1(:,:) ) + 0.35 * catm1(:,:) 582 fr2_i0(:,:) = 0.82 * ( 1.0 - catm1(:,:) ) + 0.65 * catm1(:,:) 586 583 587 584 ! Total PRECIPITATION (kg/m2/s)
Note: See TracChangeset
for help on using the changeset viewer.