- Timestamp:
- 2020-04-20T20:48:56+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/src/ICE/icealb.F90
r12725 r12785 45 45 CONTAINS 46 46 47 SUBROUTINE ice_alb( pt_su, ph_ice, ph_snw, ld_pnd_alb, pafrac_pnd, ph_pnd, p alb_cs, palb_os)47 SUBROUTINE ice_alb( pt_su, ph_ice, ph_snw, ld_pnd_alb, pafrac_pnd, ph_pnd, pcloud_fra, palb_ice ) 48 48 !!---------------------------------------------------------------------- 49 49 !! *** ROUTINE ice_alb *** … … 97 97 REAL(wp), INTENT(in ), DIMENSION(:,:,:) :: pafrac_pnd ! melt pond relative fraction (per unit ice area) 98 98 REAL(wp), INTENT(in ), DIMENSION(:,:,:) :: ph_pnd ! melt pond depth 99 REAL(wp), INTENT( out), DIMENSION(:,:,:) :: palb_cs ! albedo of ice under clear sky100 REAL(wp), INTENT( out), DIMENSION(:,:,:) :: palb_ os ! albedo of ice under overcast sky99 REAL(wp), INTENT(in ), DIMENSION(:,:) :: pcloud_fra ! cloud fraction 100 REAL(wp), INTENT( out), DIMENSION(:,:,:) :: palb_ice ! albedo of ice 101 101 ! 102 102 INTEGER :: ji, jj, jl ! dummy loop indices … … 106 106 REAL(wp) :: zalb_ice, zafrac_ice ! bare sea ice albedo & relative ice fraction 107 107 REAL(wp) :: zalb_snw, zafrac_snw ! snow-covered sea ice albedo & relative snow fraction 108 REAL(wp) :: zalb_cs, zalb_os ! albedo of ice under clear/overcast sky 108 109 !!--------------------------------------------------------------------- 109 110 ! … … 166 167 ENDIF 167 168 ! !--- Surface albedo is weighted mean of snow, ponds and bare ice contributions 168 palb_os(ji,jj,jl) = ( zafrac_snw * zalb_snw + zafrac_pnd * zalb_pnd + zafrac_ice * zalb_ice ) * tmask(ji,jj,1) 169 ! 170 palb_cs(ji,jj,jl) = palb_os(ji,jj,jl) & 171 & - ( - 0.1010 * palb_os(ji,jj,jl) * palb_os(ji,jj,jl) & 172 & + 0.1933 * palb_os(ji,jj,jl) - 0.0148 ) * tmask(ji,jj,1) 173 ! 169 zalb_os = ( zafrac_snw * zalb_snw + zafrac_pnd * zalb_pnd + zafrac_ice * zalb_ice ) * tmask(ji,jj,1) 170 ! 171 zalb_cs = zalb_os - ( - 0.1010 * zalb_os * zalb_os & 172 & + 0.1933 * zalb_os - 0.0148 ) * tmask(ji,jj,1) 173 ! 174 ! albedo depends on cloud fraction because of non-linear spectral effects 175 palb_ice(ji,jj,jl) = ( 1._wp - pcloud_fra(ji,jj) ) * zalb_cs + pcloud_fra(ji,jj) * zalb_os 176 174 177 END DO 175 178 END DO
Note: See TracChangeset
for help on using the changeset viewer.