diff --git a/atmos_cubed_sphere b/atmos_cubed_sphere index db3acfbec..371a29afb 160000 --- a/atmos_cubed_sphere +++ b/atmos_cubed_sphere @@ -1 +1 @@ -Subproject commit db3acfbec2ca00d1795b72b7ebf0b1e308506ced +Subproject commit 371a29afbf813357dd93647cac0cbcd44db2ab20 diff --git a/atmos_model.F90 b/atmos_model.F90 index a0204da0a..987608232 100644 --- a/atmos_model.F90 +++ b/atmos_model.F90 @@ -1672,7 +1672,7 @@ subroutine assign_importdata(rc) if (trim(impfield_name) == trim(fldname)) then findex = QueryFieldList(ImportFieldsList,fldname) if (importFieldsValid(findex) .and. IPD_control%cplwav2atm) then -!$omp parallel do default(shared) private(i,j,nb,ix) +!$omp parallel do default(shared) private(i,j,nb,ix,tem) do j=jsc,jec do i=isc,iec nb = Atm_block%blkno(i,j)