Changeset 2146 for LMDZ5/trunk/libf/phylmd/phys_state_var_mod.F90
- Timestamp:
- Nov 14, 2014, 9:22:21 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/phys_state_var_mod.F90
r2003 r2146 349 349 REAL,SAVE,ALLOCATABLE :: tau_aero(:,:,:,:), piz_aero(:,:,:,:), cg_aero(:,:,:,:) 350 350 !$OMP THREADPRIVATE(tau_aero, piz_aero, cg_aero) 351 REAL,SAVE,ALLOCATABLE :: tau_aero_rrtm(:,:,:,:), piz_aero_rrtm(:,:,:,:), cg_aero_rrtm(:,:,:,:) 352 !$OMP THREADPRIVATE(tau_aero_rrtm, piz_aero_rrtm, cg_aero_rrtm) 351 REAL,SAVE,ALLOCATABLE :: tau_aero_sw_rrtm(:,:,:,:), piz_aero_sw_rrtm(:,:,:,:), cg_aero_sw_rrtm(:,:,:,:) 352 !$OMP THREADPRIVATE(tau_aero_sw_rrtm, piz_aero_sw_rrtm, cg_aero_sw_rrtm) 353 REAL,SAVE,ALLOCATABLE :: tau_aero_lw_rrtm(:,:,:,:), piz_aero_lw_rrtm(:,:,:,:), cg_aero_lw_rrtm(:,:,:,:) 354 !$OMP THREADPRIVATE(tau_aero_lw_rrtm, piz_aero_lw_rrtm, cg_aero_lw_rrtm) 353 355 REAL,SAVE,ALLOCATABLE :: ccm(:,:,:) 354 356 !$OMP THREADPRIVATE(ccm) … … 519 521 ALLOCATE(topswai(klon), solswai(klon)) 520 522 ALLOCATE(tau_aero(klon,klev,naero_grp,nbands),piz_aero(klon,klev,naero_grp,nbands),cg_aero(klon,klev,naero_grp,nbands)) 521 ALLOCATE(tau_aero_rrtm(klon,klev,2,nbands_rrtm),piz_aero_rrtm(klon,klev,2,nbands_rrtm)) 522 ALLOCATE(cg_aero_rrtm(klon,klev,2,nbands_rrtm)) 523 ALLOCATE(tau_aero_sw_rrtm(klon,klev,2,nbands_sw_rrtm),piz_aero_sw_rrtm(klon,klev,2,nbands_sw_rrtm)) 524 ALLOCATE(cg_aero_sw_rrtm(klon,klev,2,nbands_sw_rrtm)) 525 ALLOCATE(tau_aero_lw_rrtm(klon,klev,2,nbands_lw_rrtm),piz_aero_lw_rrtm(klon,klev,2,nbands_lw_rrtm)) 526 ALLOCATE(cg_aero_lw_rrtm(klon,klev,2,nbands_lw_rrtm)) 523 527 ALLOCATE(ccm(klon,klev,nbands)) 524 528 … … 635 639 deallocate(topswai, solswai) 636 640 deallocate(tau_aero,piz_aero,cg_aero) 637 deallocate(tau_aero_rrtm,piz_aero_rrtm,cg_aero_rrtm) 641 deallocate(tau_aero_sw_rrtm,piz_aero_sw_rrtm,cg_aero_sw_rrtm) 642 deallocate(tau_aero_lw_rrtm,piz_aero_lw_rrtm,cg_aero_lw_rrtm) 638 643 deallocate(ccm) 639 644 if (ok_gwd_rando) deallocate(du_gwd_rando, dv_gwd_rando)
Note: See TracChangeset
for help on using the changeset viewer.