SURFEX
V8_0
Surfex V8_0 release
Main Page
Data Types List
Files
File List
File Members
All
Classes
Files
Functions
Variables
src
SURFEX
prep_ver_seaflux.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
SUBROUTINE
prep_ver_seaflux
(S)
7
! #################################################################################
8
!
9
!!**** *PREP_VER_SEAFLUX* - change in SEAFLUX variables due to altitude change
10
!!
11
!! PURPOSE
12
!! -------
13
!
14
!!** METHOD
15
!! ------
16
!!
17
!! REFERENCE
18
!! ---------
19
!!
20
!!
21
!! AUTHOR
22
!! ------
23
!! S. Malardel
24
!!
25
!! MODIFICATIONS
26
!! -------------
27
!! Original 01/2004
28
!!------------------------------------------------------------------
29
!
30
!
31
!
32
USE
modd_seaflux_n
, ONLY
:
seaflux_t
33
!
34
USE
modd_prep
, ONLY
: xzs_ls, xt_clim_grad
35
!
36
!
37
USE
yomhook
,ONLY
: lhook, dr_hook
38
USE
parkind1
,ONLY
: jprb
39
!
40
IMPLICIT NONE
41
!
42
!* 0.1 declarations of arguments
43
!
44
!
45
!* 0.2 declarations of local variables
46
!
47
!
48
!-------------------------------------------------------------------------------------
49
!
50
!* 1.3 SST
51
!
52
53
!
54
TYPE(
seaflux_t
)
,
INTENT(INOUT)
:: s
55
!
56
REAL(KIND=JPRB)
:: zhook_handle
57
58
IF
(lhook) CALL dr_hook(
'PREP_VER_SEAFLUX'
,0,zhook_handle)
59
s%XSST = s%XSST + xt_clim_grad * (s%XZS - xzs_ls)
60
IF
(lhook) CALL dr_hook(
'PREP_VER_SEAFLUX'
,1,zhook_handle)
61
!
62
!-------------------------------------------------------------------------------------
63
!
64
END SUBROUTINE
prep_ver_seaflux
modd_prep
Definition:
modd_prep.F90:6
modd_seaflux_n::seaflux_t
Definition:
modd_seafluxn.F90:47
modd_seaflux_n
Definition:
modd_seafluxn.F90:6
prep_ver_seaflux
subroutine prep_ver_seaflux(S)
Definition:
prep_ver_seaflux.F90:6
Generated on Fri May 13 2016 09:31:05 for SURFEX by
1.8.5