fix omp error in dycore and atmos_model.F90 (NOAA-EMC#77)

* fix omp error in dycore and atmos_model.F90 * Update atmos_cubed_sphere submodule
climbfuji · Mar 11, 2020 · fc9a4c2 · fc9a4c2
1 parent 38a495e
commit fc9a4c2
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/atmos_cubed_sphere b/atmos_cubed_sphere
diff --git 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)