SURFEX
V8_0
Surfex V8_0 release
Main Page
Data Types List
Files
File List
File Members
All
Classes
Files
Functions
Variables
src
SURFEX
write_sean.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
write_sea_n
(DTCO, DGU, U, SM, &
7
hprogram,hwrite)
8
! ####################################
9
!
10
!!**** *WRITE_SEA_n* - routine to write surface variables in their respective files
11
!!
12
!! PURPOSE
13
!! -------
14
!!
15
!!** METHOD
16
!! ------
17
!!
18
!! EXTERNAL
19
!! --------
20
!!
21
!!
22
!! IMPLICIT ARGUMENTS
23
!! ------------------
24
!!
25
!! REFERENCE
26
!! ---------
27
!!
28
!!
29
!! AUTHOR
30
!! ------
31
!! V. Masson *Meteo France*
32
!!
33
!! MODIFICATIONS
34
!! -------------
35
!! Original 01/2003
36
!-------------------------------------------------------------------------------
37
!
38
!* 0. DECLARATIONS
39
! ------------
40
!
41
!
42
USE
modd_data_cover_n
, ONLY
:
data_cover_t
43
USE
modd_diag_surf_atm_n
, ONLY
:
diag_surf_atm_t
44
USE
modd_surf_atm_n
, ONLY
:
surf_atm_t
45
!
46
USE
modd_surfex_n
, ONLY
:
seaflux_model_t
47
!
48
USE
modi_write_seaflux_n
49
!
50
!
51
USE
yomhook
,ONLY
: lhook, dr_hook
52
USE
parkind1
,ONLY
: jprb
53
!
54
IMPLICIT NONE
55
!
56
!* 0.1 Declarations of arguments
57
! -------------------------
58
!
59
!
60
!
61
TYPE(
data_cover_t
)
,
INTENT(INOUT)
:: dtco
62
TYPE(
diag_surf_atm_t
)
,
INTENT(INOUT)
:: dgu
63
TYPE(
surf_atm_t
)
,
INTENT(INOUT)
:: u
64
TYPE(
seaflux_model_t
)
,
INTENT(INOUT)
:: sm
65
!
66
CHARACTER(LEN=6)
,
INTENT(IN)
:: hprogram
! program calling surf. schemes
67
CHARACTER(LEN=3)
,
INTENT(IN)
:: hwrite
! 'PREP' : does not write SBL XUNDEF fields
68
! ! 'ALL' : all fields are written
69
REAL(KIND=JPRB)
:: zhook_handle
70
!
71
!* 0.2 Declarations of local variables
72
! -------------------------------
73
!
74
!-------------------------------------------------------------------------------
75
!
76
!* 1. Selection of surface scheme
77
! ---------------------------
78
!
79
IF
(lhook) CALL dr_hook(
'WRITE_SEA_N'
,0,zhook_handle)
80
IF
(u%CSEA==
'SEAFLX'
)
THEN
81
CALL
write_seaflux_n
(dtco, dgu, u, sm, &
82
hprogram,hwrite)
83
END IF
84
IF
(lhook) CALL dr_hook(
'WRITE_SEA_N'
,1,zhook_handle)
85
!
86
!-------------------------------------------------------------------------------
87
!
88
END SUBROUTINE
write_sea_n
modd_surf_atm_n::surf_atm_t
Definition:
modd_surf_atmn.F90:42
modd_surfex_n
Definition:
modd_surfexn.F90:5
modd_data_cover_n
Definition:
modd_data_covern.F90:6
modd_diag_surf_atm_n
Definition:
modd_diag_surf_atmn.F90:6
modd_surfex_n::seaflux_model_t
Definition:
modd_surfexn.F90:116
modd_data_cover_n::data_cover_t
Definition:
modd_data_covern.F90:43
write_sea_n
subroutine write_sea_n(DTCO, DGU, U, SM, HPROGRAM, HWRITE)
Definition:
write_sean.F90:6
write_seaflux_n
subroutine write_seaflux_n(DTCO, DGU, U, SM, HPROGRAM, HWRITE)
Definition:
write_seafluxn.F90:6
modd_diag_surf_atm_n::diag_surf_atm_t
Definition:
modd_diag_surf_atmn.F90:44
modd_surf_atm_n
Definition:
modd_surf_atmn.F90:6
Generated on Fri May 13 2016 09:31:06 for SURFEX by
1.8.5