- Timestamp:
- May 5, 2021, 4:02:41 PM (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/branches/IPSLCM5A2.1/libf/dynphy_lonlat/inigeomphy_mod.F90
r2588 r3889 73 73 REAL,ALLOCATABLE,SAVE :: boundslonfi(:,:) 74 74 REAL,ALLOCATABLE,SAVE :: boundslatfi(:,:) 75 !$OMP THREADPRIVATE (latfi,lonfi,cufi,cvfi,airefi,boundslonfi,boundslatfi) 75 INTEGER,ALLOCATABLE,SAVE :: ind_cell_glo_fi(:) 76 !$OMP THREADPRIVATE (latfi,lonfi,cufi,cvfi,airefi,boundslonfi,boundslatfi,ind_cell_glo_fi) 76 77 77 78 ! Initialize Physics distibution and parameters and interface with dynamics … … 201 202 ALLOCATE(boundslonfi(klon_omp,4)) 202 203 ALLOCATE(boundslatfi(klon_omp,4)) 204 ALLOCATE(ind_cell_glo_fi(klon_omp)) 203 205 204 206 … … 211 213 boundslonfi(1:klon_omp,:) = boundslonfi_glo(offset+klon_omp_begin:offset+klon_omp_end,:) 212 214 boundslatfi(1:klon_omp,:) = boundslatfi_glo(offset+klon_omp_begin:offset+klon_omp_end,:) 215 ind_cell_glo_fi(1:klon_omp)=(/ (i,i=offset+klon_omp_begin,offset+klon_omp_end) /) 213 216 214 217 ! copy over local grid longitudes and latitudes 215 218 CALL init_geometry(klon_omp,lonfi,latfi,boundslonfi,boundslatfi, & 216 airefi, cufi,cvfi)219 airefi,ind_cell_glo_fi,cufi,cvfi) 217 220 218 221 !$OMP END PARALLEL
Note: See TracChangeset
for help on using the changeset viewer.