SURFEX
V8_0
Surfex V8_0 release
Main Page
Data Types List
Files
File List
File Members
All
Classes
Files
Functions
Variables
src
SURFEX
modd_sltn.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
MODULE
modd_slt_n
6
7
!Purpose:
8
!Declare variables and constants necessary to do the sea salt calculations
9
!Here are only the variables which depend on the grid!
10
!
11
!Author: Alf Grini / Pierre Tulet
12
!
13
USE
yomhook
,ONLY
: lhook, dr_hook
14
USE
parkind1
,ONLY
: jprb
15
!
16
IMPLICIT NONE
17
18
TYPE
slt_t
19
REAL
,
DIMENSION(:,:,:)
,
POINTER
:: XSFSLT
! Sea Salt variables to be send to output
20
REAL
,
DIMENSION(:)
,
POINTER
:: XEMISRADIUS_SLT
! Number median radius for each source mode
21
REAL
,
DIMENSION(:)
,
POINTER
:: XEMISSIG_SLT
! sigma for each source mode
22
END TYPE
slt_t
23
24
25
26
CONTAINS
27
28
!
29
30
31
32
33
SUBROUTINE
slt_init
(YSLT)
34
TYPE(
slt_t
)
,
INTENT(INOUT)
:: yslt
35
REAL(KIND=JPRB)
:: zhook_handle
36
IF
(lhook) CALL dr_hook(
"MODD_SLT_N:SLT_INIT"
,0,zhook_handle)
37
nullify(yslt%XSFSLT)
38
nullify(yslt%XEMISRADIUS_SLT)
39
nullify(yslt%XEMISSIG_SLT)
40
IF
(lhook) CALL dr_hook(
"MODD_SLT_N:SLT_INIT"
,1,zhook_handle)
41
END SUBROUTINE
slt_init
42
43
44
END MODULE
modd_slt_n
modd_slt_n
Definition:
modd_sltn.F90:5
modd_slt_n::slt_t
Definition:
modd_sltn.F90:18
modd_slt_n::slt_init
subroutine slt_init(YSLT)
Definition:
modd_sltn.F90:33
Generated on Fri May 13 2016 09:31:04 for SURFEX by
1.8.5