Changeset 1761 for LMDZ5/trunk/libf/phylmd/phys_output_var_mod.F90
- Timestamp:
- Jun 4, 2013, 12:11:38 PM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/phys_output_var_mod.F90
r1758 r1761 17 17 !$OMP THREADPRIVATE(itau_con) 18 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 19 21 REAL, ALLOCATABLE :: bils_kinetic(:) ! bilan de chaleur au sol, kinetic 20 22 REAL, ALLOCATABLE :: bils_enthalp(:) ! bilan de chaleur au sol 21 23 REAL, ALLOCATABLE :: bils_latent(:) ! bilan de chaleur au sol 22 !$OMP THREADPRIVATE(bils_ec,bils_kinetic,bils_enthalp,bils_latent) 24 !$OMP THREADPRIVATE(bils_ec,bils_tke,bils_diss,bils_kinetic,bils_enthalp,bils_latent) 25 23 26 24 27 CONTAINS … … 32 35 allocate(snow_o(klon), zfra_o(klon)) 33 36 allocate(itau_con(klon)) 34 allocate (bils_ec(klon),bils_ kinetic(klon),bils_enthalp(klon),bils_latent(klon))37 allocate (bils_ec(klon),bils_tke(klon),bils_diss(klon),bils_kinetic(klon),bils_enthalp(klon),bils_latent(klon)) 35 38 36 39 END SUBROUTINE phys_output_var_init … … 42 45 43 46 deallocate(snow_o,zfra_o,itau_con) 44 deallocate (bils_ec,bils_ kinetic,bils_enthalp,bils_latent)47 deallocate (bils_ec,bils_tke,bils_diss,bils_kinetic,bils_enthalp,bils_latent) 45 48 46 49 END SUBROUTINE phys_output_var_end
Note: See TracChangeset
for help on using the changeset viewer.