SURFEX
V8_0
Surfex V8_0 release
Main Page
Data Types List
Files
File List
File Members
All
Classes
Files
Functions
Variables
src
SURFEX
flag_update.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
flag_update
(DGI, DGU, &
7
onowrite_canopy,opgd,oprovar_to_diag,oselect)
8
! ############################################################
9
!
10
!!**** *FLAG_UPDATE* - routine to modify selection of output fields
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
!! P. Le Moigne *Meteo France*
32
!!
33
!! MODIFICATIONS
34
!! -------------
35
!! Original 02/2008
36
!
37
! B.Decharme 10/2009 flag to desactivate writing of pgd
38
!-------------------------------------------------------------------------------
39
!
40
!* 0. DECLARATIONS
41
! ------------
42
!
43
!
44
USE
modd_diag_isba_n
, ONLY
:
diag_isba_t
45
USE
modd_diag_surf_atm_n
, ONLY
:
diag_surf_atm_t
46
!
47
USE
modd_write_surf_atm
, ONLY
: lnowrite_canopy
48
!
49
!
50
USE
yomhook
,ONLY
: lhook, dr_hook
51
USE
parkind1
,ONLY
: jprb
52
!
53
IMPLICIT NONE
54
!
55
!* 0.1 Declarations of arguments
56
! -------------------------
57
!
58
!
59
TYPE(
diag_isba_t
)
,
INTENT(INOUT)
:: dgi
60
TYPE(
diag_surf_atm_t
)
,
INTENT(INOUT)
:: dgu
61
!
62
LOGICAL
,
INTENT(IN)
:: onowrite_canopy
! flag to (des)activate writing of canopy fields
63
LOGICAL
,
INTENT(IN)
:: opgd
! flag to (des)activate writing of pgd field
64
LOGICAL
,
INTENT(IN)
:: oprovar_to_diag
! flag to (des)activate writing of diag of prognostic field
65
LOGICAL
,
INTENT(IN)
:: oselect
! flag to (des)activate control which fields are written
66
REAL(KIND=JPRB)
:: zhook_handle
67
!
68
!* 0.2 Declarations of local variables
69
! -------------------------------
70
!
71
!-------------------------------------------------------------------------------
72
IF
(lhook) CALL dr_hook(
'FLAG_UPDATE'
,0,zhook_handle)
73
lnowrite_canopy = onowrite_canopy
74
dgi%LPGD = opgd
75
dgu%LPROVAR_TO_DIAG = oprovar_to_diag
76
dgu%LSELECT = oselect
77
IF
(lhook) CALL dr_hook(
'FLAG_UPDATE'
,1,zhook_handle)
78
!-------------------------------------------------------------------------------
79
!
80
END SUBROUTINE
flag_update
modd_write_surf_atm
Definition:
modd_write_surf_atm.F90:6
modd_diag_surf_atm_n
Definition:
modd_diag_surf_atmn.F90:6
flag_update
subroutine flag_update(DGI, DGU, ONOWRITE_CANOPY, OPGD, OPROVAR_TO_DIAG, OSELECT)
Definition:
flag_update.F90:6
modd_diag_isba_n::diag_isba_t
Definition:
modd_diag_isban.F90:42
modd_diag_isba_n
Definition:
modd_diag_isban.F90:6
modd_diag_surf_atm_n::diag_surf_atm_t
Definition:
modd_diag_surf_atmn.F90:44
Generated on Fri May 13 2016 09:31:04 for SURFEX by
1.8.5