Changeset 3110 for LMDZ6/trunk/libf/phylmd/phys_output_var_mod.F90
- Timestamp:
- Dec 4, 2017, 5:19:33 PM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/phys_output_var_mod.F90
r3082 r3110 14 14 REAL, SAVE, ALLOCATABLE :: snow_o(:), zfra_o(:) 15 15 !$OMP THREADPRIVATE(snow_o, zfra_o) 16 REAL, SAVE, ALLOCATABLE :: sza_o(:) ! solar zenithal angle 17 !$OMP THREADPRIVATE(sza_o) 16 18 INTEGER, SAVE, ALLOCATABLE :: itau_con(:) ! Nombre de pas ou rflag <= 1 17 19 !$OMP THREADPRIVATE(itau_con) … … 144 146 145 147 allocate(snow_o(klon), zfra_o(klon)) 148 allocate(sza_o(klon) ) 146 149 allocate(itau_con(klon)) 147 150 allocate(sens_prec_liq_o(klon,2)) … … 198 201 199 202 deallocate(snow_o,zfra_o,itau_con) 203 deallocate(sza_o) 200 204 deallocate (bils_ec,bils_ech,bils_tke,bils_diss,bils_kinetic,bils_enthalp,bils_latent) 201 205 deallocate (d_qw_col, d_ql_col, d_qs_col, d_qt_col, d_ek_col, d_h_dair_col &
Note: See TracChangeset
for help on using the changeset viewer.