Changeset 3124 for LMDZ6/trunk/libf/phylmd/phys_local_var_mod.F90
- Timestamp:
- Dec 13, 2017, 3:24:16 PM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/phys_local_var_mod.F90
r3121 r3124 173 173 REAL, SAVE, ALLOCATABLE :: icc3dstra(:,:) 174 174 !$OMP THREADPRIVATE(icc3dstra) 175 REAL, SAVE, ALLOCATABLE :: zfice(:,:) 176 !$OMP THREADPRIVATE(zfice) 175 177 REAL, SAVE, ALLOCATABLE :: od443aer(:) 176 178 !$OMP THREADPRIVATE(od443aer) … … 599 601 ALLOCATE(icc3dcon(klon, klev)) 600 602 ALLOCATE(icc3dstra(klon, klev)) 603 ALLOCATE(zfice(klon, klev)) 601 604 ALLOCATE(od443aer(klon)) 602 605 ALLOCATE(od550aer(klon)) … … 876 879 DEALLOCATE(icc3dcon) 877 880 DEALLOCATE(icc3dstra) 881 DEALLOCATE(zfice) 878 882 DEALLOCATE(od443aer) 879 883 DEALLOCATE(od550aer)
Note: See TracChangeset
for help on using the changeset viewer.