ocean_albedo Subroutine

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

Uses

  • proc~~ocean_albedo~~UsesGraph proc~ocean_albedo ocean_albedo module~ocean_albedo_para ocean_albedo_para proc~ocean_albedo->module~ocean_albedo_para module~dimphy~3 dimphy proc~ocean_albedo->module~dimphy~3 module~clesphys_mod_h~2 clesphys_mod_h proc~ocean_albedo->module~clesphys_mod_h~2 module~phys_state_var_mod phys_state_var_mod proc~ocean_albedo->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 -------------------------

Called by

proc~~ocean_albedo~~CalledByGraph proc~ocean_albedo ocean_albedo proc~surf_ocean surf_ocean proc~surf_ocean->proc~ocean_albedo proc~surf_ocean~2 surf_ocean proc~surf_ocean~2->proc~ocean_albedo proc~pbl_surface pbl_surface proc~pbl_surface->proc~surf_ocean proc~pbl_surface~2 pbl_surface proc~pbl_surface~2->proc~surf_ocean proc~physiq physiq proc~physiq->proc~pbl_surface proc~physiq~2 physiq proc~physiq~2->proc~pbl_surface proc~old_lmdz1d old_lmdz1d proc~old_lmdz1d->proc~physiq proc~call_physiq call_physiq proc~call_physiq->proc~physiq proc~call_physiq~2 call_physiq proc~call_physiq~2->proc~physiq proc~scm scm proc~scm->proc~physiq program~lmdz1d lmdz1d program~lmdz1d->proc~old_lmdz1d program~lmdz1d->proc~scm proc~calfis calfis proc~calfis->proc~call_physiq proc~leapfrog leapfrog proc~leapfrog->proc~calfis program~gcm~2 gcm program~gcm~2->proc~leapfrog

Contents