Changeset 1638 for LMDZ5/trunk/libf/phylmd/phys_state_var_mod.F90
- Timestamp:
- Jul 23, 2012, 1:11:05 PM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/phys_state_var_mod.F90
r1539 r1638 346 346 !$OMP THREADPRIVATE(ccm) 347 347 348 !!! nrlmd le 10/04/2012 349 REAL,SAVE,ALLOCATABLE :: ale_bl_trig(:) 350 !$OMP THREADPRIVATE(ale_bl_trig) 351 !!! fin nrlmd le 10/04/2012 352 348 353 CONTAINS 349 354 … … 496 501 ALLOCATE(tau_aero(klon,klev,naero_grp,nbands),piz_aero(klon,klev,naero_grp,nbands),cg_aero(klon,klev,naero_grp,nbands)) 497 502 ALLOCATE(ccm(klon,klev,nbands)) 503 504 !!! nrlmd le 10/04/2012 505 ALLOCATE(ale_bl_trig(klon)) 506 !!! fin nrlmd le 10/04/2012 498 507 499 508 END SUBROUTINE phys_state_var_init … … 603 612 deallocate(ccm) 604 613 614 !!! nrlmd le 10/04/2012 615 deallocate(ale_bl_trig) 616 !!! fin nrlmd le 10/04/2012 617 605 618 END SUBROUTINE phys_state_var_end 606 619
Note: See TracChangeset
for help on using the changeset viewer.