Newer
Older
!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
!-----------------------------------------------------------------
!--------------- special set of characters for RCS information
!-----------------------------------------------------------------
! $Source$ $Revision$
! MASDEV4_7 budget 2006/05/18 13:07:25
!-----------------------------------------------------------------
!##################
MODULE MODI_BUDGET_FLAGS
!##################
!
INTERFACE
!
SUBROUTINE BUDGET_FLAGS(OUSERV, OUSERC, OUSERR, &
OUSERI, OUSERS, OUSERG, OUSERH )
!
!
LOGICAL, INTENT(IN) :: OUSERV ! flag to use water vapor
LOGICAL, INTENT(IN) :: OUSERC ! flag to use cloud
LOGICAL, INTENT(IN) :: OUSERR ! flag to use rain
LOGICAL, INTENT(IN) :: OUSERI ! flag to use ice
LOGICAL, INTENT(IN) :: OUSERS ! flag to use snow
LOGICAL, INTENT(IN) :: OUSERG ! flag to use graupel
LOGICAL, INTENT(IN) :: OUSERH ! flag to use hail
!
END SUBROUTINE BUDGET_FLAGS
!
END INTERFACE
!
END MODULE MODI_BUDGET_FLAGS
! ###################################################
SUBROUTINE BUDGET_FLAGS(OUSERV, OUSERC, OUSERR, &
OUSERI, OUSERS, OUSERG, OUSERH )
! ###################################################
!
!!**** *BUDGET_FLAGS* - routine to initialize the flags to call the budget
!! routines
!!
!!
!! PURPOSE
!! -------
!!
!!** METHOD
!! ------
!!
!!
!!
!! EXTERNAL
!! --------
!! CART_COMPRESS
!! MASK_COMPRESS
!!
!! IMPLICIT ARGUMENTS
!! ------------------
!!
!! REFERENCE
!! ---------
!! None
!!
!! AUTHOR
!! ------
!! V. Masson * Meteo France *
!!
!! MODIFICATIONS
!! -------------
!! Original 09/10/02
!!
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
! ------------
!
USE MODD_BUDGET
USE MODD_NSV, ONLY : NSV
USE MODD_LES
!
IMPLICIT NONE
!
!
!* 0.1 Declarations of arguments :
!
LOGICAL, INTENT(IN) :: OUSERV ! flag to use water vapor
LOGICAL, INTENT(IN) :: OUSERC ! flag to use cloud
LOGICAL, INTENT(IN) :: OUSERR ! flag to use rain
LOGICAL, INTENT(IN) :: OUSERI ! flag to use ice
LOGICAL, INTENT(IN) :: OUSERS ! flag to use snow
LOGICAL, INTENT(IN) :: OUSERG ! flag to use graupel
LOGICAL, INTENT(IN) :: OUSERH ! flag to use hail
!-------------------------------------------------------------------------------
!
LBUDGET_U = (LBU_ENABLE .AND. LBU_RU ) .OR. (LLES_CALL .OR. LCHECK )
LBUDGET_V = (LBU_ENABLE .AND. LBU_RV ) .OR. (LLES_CALL .OR. LCHECK )
LBUDGET_W = (LBU_ENABLE .AND. LBU_RW ) .OR. (LLES_CALL .OR. LCHECK )
LBUDGET_TH = (LBU_ENABLE .AND. LBU_RTH ) .OR. (LLES_CALL .OR. LCHECK )
LBUDGET_TKE= (LBU_ENABLE .AND. LBU_RTKE) .OR. (LLES_CALL .OR. LCHECK )
LBUDGET_RV = (LBU_ENABLE .AND. LBU_RRV ) .OR. ((LLES_CALL .OR. LCHECK ).AND. OUSERV)
LBUDGET_RC = (LBU_ENABLE .AND. LBU_RRC ) .OR. ((LLES_CALL .OR. LCHECK ).AND. OUSERC)
LBUDGET_RR = (LBU_ENABLE .AND. LBU_RRR ) .OR. ((LLES_CALL .OR. LCHECK ).AND. OUSERR)
LBUDGET_RI = (LBU_ENABLE .AND. LBU_RRI ) .OR. ((LLES_CALL .OR. LCHECK ).AND. OUSERI)
LBUDGET_RS = (LBU_ENABLE .AND. LBU_RRS ) .OR. ((LLES_CALL .OR. LCHECK ).AND. OUSERS)
LBUDGET_RG = (LBU_ENABLE .AND. LBU_RRG ) .OR. ((LLES_CALL .OR. LCHECK ).AND. OUSERG)
LBUDGET_RH = (LBU_ENABLE .AND. LBU_RRH ) .OR. ((LLES_CALL .OR. LCHECK ).AND. OUSERH)
LBUDGET_SV = (LBU_ENABLE .AND. LBU_RSV ) .OR. ((LLES_CALL .OR. LCHECK ).AND. NSV>0 )
!
!-------------------------------------------------------------------------------
!
END SUBROUTINE BUDGET_FLAGS