- Timestamp:
- Jun 3, 2011, 7:28:17 PM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4_AR5/libf/phylmd/phys_local_var_mod.F90
r1337 r1534 163 163 !$OMP THREADPRIVATE(load_tmp7) 164 164 165 !IM ajout variables CFMIP2/CMIP5 166 REAL,ALLOCATABLE,SAVE :: topswad_aerop(:), solswad_aerop(:) 167 !$OMP THREADPRIVATE(topswad_aerop, solswad_aerop) 168 REAL,ALLOCATABLE,SAVE :: topswai_aerop(:), solswai_aerop(:) 169 !$OMP THREADPRIVATE(topswai_aerop, solswai_aerop) 170 REAL,ALLOCATABLE,SAVE :: topswad0_aerop(:), solswad0_aerop(:) 171 !$OMP THREADPRIVATE(topswad0_aerop, solswad0_aerop) 172 REAL,ALLOCATABLE,SAVE :: topsw_aerop(:,:), topsw0_aerop(:,:) 173 !$OMP THREADPRIVATE(topsw_aerop, topsw0_aerop) 174 REAL,ALLOCATABLE,SAVE :: solsw_aerop(:,:), solsw0_aerop(:,:) 175 !$OMP THREADPRIVATE(solsw_aerop, solsw0_aerop) 176 REAL,ALLOCATABLE,SAVE :: topswcf_aerop(:,:), solswcf_aerop(:,:) 177 !$OMP THREADPRIVATE(topswcf_aerop, solswcf_aerop) 178 165 179 CONTAINS 166 180 … … 243 257 allocate(load_tmp7(klon)) 244 258 259 !IM ajout variables CFMIP2/CMIP5 260 ALLOCATE(topswad_aerop(klon), solswad_aerop(klon)) 261 ALLOCATE(topswai_aerop(klon), solswai_aerop(klon)) 262 ALLOCATE(topswad0_aerop(klon), solswad0_aerop(klon)) 263 ALLOCATE(topsw_aerop(klon,naero_grp), topsw0_aerop(klon,naero_grp)) 264 ALLOCATE(solsw_aerop(klon,naero_grp), solsw0_aerop(klon,naero_grp)) 265 ALLOCATE(topswcf_aerop(klon,naero_grp), solswcf_aerop(klon,naero_grp)) 266 245 267 END SUBROUTINE phys_local_var_init 246 268 … … 320 342 deallocate(d_u_hin,d_v_hin,d_t_hin) 321 343 344 !IM ajout variables CFMIP2/CMIP5 345 deallocate(topswad_aerop, solswad_aerop) 346 deallocate(topswai_aerop, solswai_aerop) 347 deallocate(topswad0_aerop, solswad0_aerop) 348 deallocate(topsw_aerop, topsw0_aerop) 349 deallocate(solsw_aerop, solsw0_aerop) 350 deallocate(topswcf_aerop, solswcf_aerop) 351 322 352 END SUBROUTINE phys_local_var_end 323 353
Note: See TracChangeset
for help on using the changeset viewer.