ocean_albedo Subroutine

subroutine ocean_albedo(knon, zrmu0, knindex, pwind, SFRWL, alb_dir_new, alb_dif_new)

Uses

  • proc~~ocean_albedo~2~~UsesGraph proc~ocean_albedo~2 ocean_albedo module~ocean_albedo_para ocean_albedo_para proc~ocean_albedo~2->module~ocean_albedo_para module~dimphy~3 dimphy proc~ocean_albedo~2->module~dimphy~3 module~clesphys_mod_h~2 clesphys_mod_h proc~ocean_albedo~2->module~clesphys_mod_h~2 module~phys_state_var_mod phys_state_var_mod proc~ocean_albedo~2->module~phys_state_var_mod module~phys_state_var_mod->module~dimphy~3 module~dimsoil_mod_h dimsoil_mod_h module~phys_state_var_mod->module~dimsoil_mod_h netcdf netcdf module~phys_state_var_mod->netcdf

** ALBEDO_RS14 

PURPOSE
-------
 computes the direct & diffuse albedo over open water

** METHOD ------

EXTERNAL
--------

IMPLICIT ARGUMENTS
------------------

REFERENCE
---------

AUTHOR
------
R. Séférian           * Meteo-France *

MODIFICATIONS
-------------
  Original    03/2014
              05/2014 R. Séférian & B. Decharme :: Adaptation to spectral
              computation for diffuse and direct albedo
              08/2014 S. Baek :: for wider wavelength range 200-4000nm and
              adaptation to LMDZ + whitecap effect by Koepke + chrolophyll
              map from climatology file
              10/2016 O. Boucher :: some optimisation following R.
              Seferian's work in the CNRM Model



       DECLARATIONS
        ------------

  0.1    declarations of arguments
          -------------------------

!--------- wavelength value !--------- refraction index value

ZRDF(1:knon)=-0.1479+0.1502ZREFM-0.0176ZSIG(1:knon)*ZREFM ! surface diffuse (Eq 5b)

WHERE ( ZCHL(1:knon) > 0.02 ) ZNU(:)=MIN(0.0,0.5(ZWORK3(:)-0.3)) ZBBP(:)=(0.002+0.01(0.5-0.25ZWORK3(:))(ZWL/550.)ZNU(:))ZWORK2(:) ELSEWHERE ZBBP(:)=0.019(550./ZWL)*ZWORK2(:) !ZBBPf=0.0113 at chl<=0.02 ENDWHERE

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: knon
real, intent(in), DIMENSION(klon) :: zrmu0
integer, intent(in), DIMENSION(klon) :: knindex
real, intent(in), DIMENSION(klon) :: pwind
real, intent(in), DIMENSION(6) :: SFRWL
real, intent(out), DIMENSION(klon,nsw) :: alb_dir_new

0.2 declarations of local variables -------------------------
real, intent(out), DIMENSION(klon,nsw) :: alb_dif_new

0.2 declarations of local variables -------------------------

Contents