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_diag_misc_flaken.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_diag_misc_flake_n
( DTCO, DGU, U, DGMF, &
7
hprogram)
8
! #################################
9
!
10
!!**** *WRITE_DIAG_MISC_FLAKE* - writes the FLAKE miscellaneous diagnostic fields
11
!!
12
!! PURPOSE
13
!! -------
14
!!
15
!!
16
!!** METHOD
17
!! ------
18
!!
19
!! REFERENCE
20
!! ---------
21
!!
22
!!
23
!! AUTHOR
24
!! ------
25
!! P. Le Moigne *Meteo France*
26
!!
27
!! MODIFICATIONS
28
!! -------------
29
!! Original 10/2004
30
!-------------------------------------------------------------------------------
31
!
32
!* 0. DECLARATIONS
33
! ------------
34
!
35
!
36
USE
modd_data_cover_n
, ONLY
:
data_cover_t
37
USE
modd_diag_surf_atm_n
, ONLY
:
diag_surf_atm_t
38
USE
modd_surf_atm_n
, ONLY
:
surf_atm_t
39
USE
modd_diag_misc_flake_n
, ONLY
:
diag_misc_flake_t
40
!
41
USE
modi_init_io_surf_n
42
USE
modi_write_surf
43
USE
modi_end_io_surf_n
44
!
45
USE
yomhook
,ONLY
: lhook, dr_hook
46
USE
parkind1
,ONLY
: jprb
47
!
48
IMPLICIT NONE
49
!
50
!* 0.1 Declarations of arguments
51
! -------------------------
52
!
53
!
54
TYPE(
data_cover_t
)
,
INTENT(INOUT)
:: dtco
55
TYPE(
diag_surf_atm_t
)
,
INTENT(INOUT)
:: dgu
56
TYPE(
surf_atm_t
)
,
INTENT(INOUT)
:: u
57
TYPE(
diag_misc_flake_t
)
,
INTENT(INOUT)
:: dgmf
58
!
59
CHARACTER(LEN=6)
,
INTENT(IN)
:: hprogram
! program calling
60
!
61
!* 0.2 Declarations of local variables
62
! -------------------------------
63
!
64
INTEGER
:: iresp
! IRESP : return-code if a problem appears
65
CHARACTER(LEN=12)
:: yrecfm
! Name of the article to be read
66
CHARACTER(LEN=100)
:: ycomment
! Comment string
67
INTEGER
:: iz
68
REAL(KIND=JPRB)
:: zhook_handle
69
!
70
!-------------------------------------------------------------------------------
71
!
72
IF
(lhook) CALL dr_hook(
'WRITE_DIAG_MISC_FLAKE_N'
,0,zhook_handle)
73
!
74
! Initialisation for IO
75
!
76
CALL
init_io_surf_n
(dtco, dgu, u, &
77
hprogram,
'WATER '
,
'FLAKE '
,
'WRITE'
)
78
!
79
!-------------------------------------------------------------------------------
80
!
81
!* Flake temperature profile
82
!
83
IF
(dgmf%LWATER_PROFILE)
THEN
84
DO
iz=1,
SIZE
(dgmf%XZW_PROFILE)
85
WRITE
(yrecfm,
'(F5.1)'
) dgmf%XZW_PROFILE(iz)
86
yrecfm=
'TW_'
//trim(adjustl(yrecfm))
87
ycomment=
'X_Y_'
//yrecfm//
' (K)'
88
CALL
write_surf
(dgu, u, &
89
hprogram,yrecfm,dgmf%XTW_PROFILE(iz,:),iresp,hcomment=ycomment)
90
END DO
91
END IF
92
!
93
!-------------------------------------------------------------------------------
94
!
95
! End of IO
96
!
97
CALL
end_io_surf_n
(hprogram)
98
!
99
IF
(lhook) CALL dr_hook(
'WRITE_DIAG_MISC_FLAKE_N'
,1,zhook_handle)
100
!
101
END SUBROUTINE
write_diag_misc_flake_n
init_io_surf_n
subroutine init_io_surf_n(DTCO, DGU, U, HPROGRAM, HMASK, HSCHEME, HACTION)
Definition:
init_io_surfn.F90:6
modd_diag_misc_flake_n::diag_misc_flake_t
Definition:
modd_diag_misc_flaken.F90:41
modd_surf_atm_n::surf_atm_t
Definition:
modd_surf_atmn.F90:42
modd_diag_misc_flake_n
Definition:
modd_diag_misc_flaken.F90:6
modd_data_cover_n
Definition:
modd_data_covern.F90:6
modd_diag_surf_atm_n
Definition:
modd_diag_surf_atmn.F90:6
write_diag_misc_flake_n
subroutine write_diag_misc_flake_n(DTCO, DGU, U, DGMF, HPROGRAM)
Definition:
write_diag_misc_flaken.F90:6
end_io_surf_n
subroutine end_io_surf_n(HPROGRAM)
Definition:
end_io_surfn.F90:6
modi_write_surf::write_surf
Definition:
write_surf.F90:16
modd_data_cover_n::data_cover_t
Definition:
modd_data_covern.F90:43
modd_diag_surf_atm_n::diag_surf_atm_t
Definition:
modd_diag_surf_atmn.F90:44
modi_write_surf
Definition:
write_surf.F90:6
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