My Project
 All Classes Files Functions Variables Macros
phys_output_var_mod.F90
Go to the documentation of this file.
1 !
2 ! phys_local_var_mod.F90 1327 2010-03-17 15:33:56Z idelkadi $
3 
4  MODULE phys_output_var_mod
5 
6  use dimphy
7 ! Variables outputs pour les ecritures des sorties
8 !======================================================================
9 !
10 !
11 !======================================================================
12 ! Declaration des variables
13 
14  REAL, SAVE, ALLOCATABLE :: snow_o(:), zfra_o(:)
15 !$OMP THREADPRIVATE(snow_o, zfra_o)
16  INTEGER, save, ALLOCATABLE :: itau_con(:) ! Nombre de pas ou rflag <= 1
17 !$OMP THREADPRIVATE(itau_con)
18  REAL, ALLOCATABLE :: bils_ec(:) ! Contribution of energy conservation
19  REAL, ALLOCATABLE :: bils_tke(:) ! Contribution of energy conservation
20  REAL, ALLOCATABLE :: bils_diss(:) ! Contribution of energy conservation
21  REAL, ALLOCATABLE :: bils_kinetic(:) ! bilan de chaleur au sol, kinetic
22  REAL, ALLOCATABLE :: bils_enthalp(:) ! bilan de chaleur au sol
23  REAL, ALLOCATABLE :: bils_latent(:) ! bilan de chaleur au sol
24 !$OMP THREADPRIVATE(bils_ec,bils_tke,bils_diss,bils_kinetic,bils_enthalp,bils_latent)
25 
26 
27 CONTAINS
28 
29 !======================================================================
30 SUBROUTINE phys_output_var_init
31 use dimphy
32 
33 IMPLICIT NONE
34 
35  allocate(snow_o(klon), zfra_o(klon))
36  allocate(itau_con(klon))
37  allocate (bils_ec(klon),bils_tke(klon),bils_diss(klon),bils_kinetic(klon),bils_enthalp(klon),bils_latent(klon))
38 
39 END SUBROUTINE phys_output_var_init
40 
41 !======================================================================
42 SUBROUTINE phys_output_var_end
43 use dimphy
44 IMPLICIT NONE
45 
46  deallocate(snow_o,zfra_o,itau_con)
47  deallocate (bils_ec,bils_tke,bils_diss,bils_kinetic,bils_enthalp,bils_latent)
48 
49 END SUBROUTINE phys_output_var_end
50 
51 END MODULE phys_output_var_mod