Changeset 3113 for LMDZ6/trunk/libf/phylmd/phys_local_var_mod.F90
- Timestamp:
- Dec 5, 2017, 1:29:47 PM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/phys_local_var_mod.F90
r3112 r3113 175 175 REAL, SAVE, ALLOCATABLE :: icc3dcon(:,:) 176 176 !$OMP THREADPRIVATE(icc3dcon) 177 REAL, SAVE, ALLOCATABLE :: zfice(:,:) 178 !$OMP THREADPRIVATE(zfice) 177 179 REAL, SAVE, ALLOCATABLE :: od443aer(:) 178 180 !$OMP THREADPRIVATE(od443aer) … … 603 605 ALLOCATE(icc3dcon(klon, klev)) 604 606 ALLOCATE(icc3dstra(klon, klev)) 607 ALLOCATE(zfice(klon, klev)) 605 608 ALLOCATE(od443aer(klon)) 606 609 ALLOCATE(od550aer(klon)) … … 883 886 DEALLOCATE(icc3dcon) 884 887 DEALLOCATE(icc3dstra) 888 DEALLOCATE(zfice) 885 889 DEALLOCATE(od443aer) 886 890 DEALLOCATE(od550aer)
Note: See TracChangeset
for help on using the changeset viewer.