Fixed errors re: nws=4; thx again Saeed!

schism-dev · Jan 22, 2025 · cec6f0d · cec6f0d
1 parent 9ecac95
commit cec6f0d
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Hydro/schism_step.F90 b/src/Hydro/schism_step.F90
@@ -601,11 +601,11 @@ subroutine schism_step(it)
             if(j/=NF90_NOERR) call parallel_abort('STEP: atmos.nc prmsl(2)')
             j=nf90_inq_varid(ncid_atmos, "stmp",mm)
             if(j/=NF90_NOERR) call parallel_abort('STEP: atmos.nc stmp')
-            j=nf90_get_var(ncid_atmos,mm,rwild(4,:),(/1,ninv+1/),(/np_global,1/))
+            j=nf90_get_var(ncid_atmos,mm,rwild6(4,:),(/1,itmp2/),(/np_global,1/))
             if(j/=NF90_NOERR) call parallel_abort('STEP: atmos.nc stmp(2)')
             j=nf90_inq_varid(ncid_atmos, "spfh",mm)
             if(j/=NF90_NOERR) call parallel_abort('STEP: atmos.nc spfh')
-            j=nf90_get_var(ncid_atmos,mm,rwild(5,:),(/1,ninv+1/),(/np_global,1/))
+            j=nf90_get_var(ncid_atmos,mm,rwild6(5,:),(/1,itmp2/),(/np_global,1/))
             if(j/=NF90_NOERR) call parallel_abort('STEP: atmos.nc spfh(2)')
 
             if(ihconsv/=0) then