SURFEX
V8_0
Surfex V8_0 release
Main Page
Data Types List
Files
File List
File Members
All
Classes
Files
Functions
Variables
src
SURFEX
albedo_ta96.F90
Go to the documentation of this file.
1
!SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
2
!SFX_LIC This is part of the SURFEX software governed by the CeCILL-C licence
3
!SFX_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
4
!SFX_LIC for details. version 1.
5
! #########
6
FUNCTION
albedo_ta96
(PZENITH) RESULT(PDIR_ALB)
7
! ##################################################################
8
!
9
!!**** *ALBEDO_TA96*
10
!!
11
!! PURPOSE
12
!! -------
13
! computes the direct albedo over open water
14
!
15
!
16
!!** METHOD
17
!! ------
18
!
19
!! EXTERNAL
20
!! --------
21
!!
22
!! IMPLICIT ARGUMENTS
23
!! ------------------
24
!!
25
!!
26
!! REFERENCE
27
!! ---------
28
!!
29
!!
30
!! AUTHOR
31
!! ------
32
!! V. Masson * Meteo-France *
33
!!
34
!! MODIFICATIONS
35
!! -------------
36
!! Original 19/09/03
37
!
38
!-------------------------------------------------------------------------------
39
!
40
!* 0. DECLARATIONS
41
! ------------
42
!
43
USE
modd_water_par
, ONLY
: xalbcoef_ta96
44
!
45
!
46
USE
yomhook
,ONLY
: lhook, dr_hook
47
USE
parkind1
,ONLY
: jprb
48
!
49
IMPLICIT NONE
50
!
51
!* 0.1 declarations of arguments
52
! -------------------------
53
!
54
REAL
,
DIMENSION(:)
,
INTENT(IN)
:: pzenith
! zenithal angle (radian)
55
!
56
REAL
,
DIMENSION(SIZE(PZENITH))
:: pdir_alb
! direct albedo on water
57
REAL(KIND=JPRB)
:: zhook_handle
58
!
59
!-------------------------------------------------------------------------------
60
!
61
IF
(lhook) CALL dr_hook(
'ALBEDO_TA96'
,0,zhook_handle)
62
pdir_alb(:) = xalbcoef_ta96/(1.1*(max(cos(pzenith(:)),0.))**1.4+0.15)
63
IF
(lhook) CALL dr_hook(
'ALBEDO_TA96'
,1,zhook_handle)
64
!
65
!-------------------------------------------------------------------------------
66
!
67
END FUNCTION
albedo_ta96
albedo_ta96
real function, dimension(size(pzenith)) albedo_ta96(PZENITH)
Definition:
albedo_ta96.F90:6
modd_water_par
Definition:
modd_water_par.F90:6
Generated on Fri May 13 2016 09:31:00 for SURFEX by
1.8.5