1 | MODULE YOMARPHY |
---|
2 | |
---|
3 | IMPLICIT NONE |
---|
4 | |
---|
5 | SAVE |
---|
6 | |
---|
7 | !* |
---|
8 | ! ----------------------------------------------------------------- |
---|
9 | |
---|
10 | ! VARIABLES DE CONTROLE DE LA PHYSIQUE AROME : |
---|
11 | ! CONTROL VARIABLES FOR THE AROME PHYSICS: |
---|
12 | |
---|
13 | ! LMPA : CLE GENERALE POUR LA PHYSIQUE AROME |
---|
14 | ! : GLOBAL SWITCH FOR AROME PHYSICS |
---|
15 | ! LMICRO : CLE D'APPEL DU SCHEMA MICROPHYSIQUE ICE3 |
---|
16 | ! SWITCH FOR THE "ICE3" MICROPHYSICS SCHEME |
---|
17 | ! LTURB : CLE D'APPEL DU SCHEMA DE TURBULENCE |
---|
18 | ! SWITCH FOR THE TURBULENCE SCHEME |
---|
19 | ! LMSE : CLE D'APPEL DU SHEMA DE SURFACE EXTERNALISE |
---|
20 | ! SWITCH FOR THE EXTERNALIZED SURFACE SCHEME |
---|
21 | ! LKFBCONV: Control key to KFB convection scheme (deep and/or shallow) |
---|
22 | ! LKFBD : Control key to KFB deep convection |
---|
23 | ! LKFBS : Control key to KFB shallow convection |
---|
24 | ! LUSECHEM: Contol key for calling the Gas Chemistry scheme |
---|
25 | ! LORILAM : Contol key for calling the Aerosol Chemistry scheme |
---|
26 | ! LRDUST : Contol key for calling the desertic aerosols |
---|
27 | ! LBUFLUX : If TRUE fluxes are calculated in AROEND_BUDGET, |
---|
28 | ! if FALSE, tendencies remain |
---|
29 | ! CCOUPLING : Type of SURFEX coupling. E - explicit, I - implicit |
---|
30 | |
---|
31 | LOGICAL :: LMPA |
---|
32 | LOGICAL :: LMICRO |
---|
33 | LOGICAL :: LTURB |
---|
34 | LOGICAL :: LMSE |
---|
35 | LOGICAL :: LKFBCONV |
---|
36 | LOGICAL :: LKFBD,LKFBS |
---|
37 | LOGICAL :: LUSECHEM |
---|
38 | LOGICAL :: LORILAM |
---|
39 | LOGICAL :: LRDUST |
---|
40 | LOGICAL :: LBUFLUX |
---|
41 | CHARACTER(LEN=1) :: CCOUPLING |
---|
42 | ! ------------------------------------------------------------------- |
---|
43 | !$OMP THREADPRIVATE(ccoupling,lbuflux,lkfbconv,lkfbd,lkfbs,lmicro,lmpa,lmse,lorilam,lrdust,lturb,lusechem) |
---|
44 | END MODULE YOMARPHY |
---|
45 | |
---|