fix mistake

mlee03 · Oct 19, 2023 · a3b03a5 · a3b03a5
1 parent b61e1af
commit a3b03a5
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 5 deletions.
diff --git a/interpolator/interpolator.F90 b/interpolator/interpolator.F90
@@ -716,8 +716,8 @@ subroutine interpolator_end(clim_type)
 clim_type%r8_type%is_allocated=.false.
 
 !! RSH mod
-if( .not.(clim_type%TIME_FLAG .eq. LINEAR  .and. read_all_on_init) .and. &
-    (clim_type%TIME_FLAG.ne.NOTIME) ) then
+if( .not.(clim_type%TIME_FLAG .eq. LINEAR  .and. read_all_on_init) &
+   .and. (clim_type%TIME_FLAG.ne.NOTIME) ) then
 !     read_all_on_init)) .or. clim_type%TIME_FLAG .eq. BILINEAR  ) then
      call close_file(clim_type%fileobj)
 endif

diff --git a/test_fms/interpolator/test_interpolator2.F90 b/test_fms/interpolator/test_interpolator2.F90
@@ -246,17 +246,18 @@ subroutine test_interpolator_no_time_axis(clim_type)
 
     !> test interpolator_4D_no_time_axis_r4/8
     call interpolator(clim_type, phalf_in, interp_data, 'ozone')
-    do i=1, nphalf
+    do i=1, npfull
        do j=1, nlonlat
           do k=1, nlonlat
+             write(*,*) interp_data(k,j,i,1)
              call check_answers(interp_data(k,j,i,1), ozone(k,j,i,1), tol, 'test interpolator_4D_no_time_axis')
           end do
        end do
     end do
 
     !> test interpolator_3D_no_time_axis_r4/8
     call interpolator(clim_type, phalf_in, interp_data(:,:,:,1), 'ozone')
-    do i=1, nphalf
+    do i=1, npfull
        do j=1, nlonlat
           do k=1, nlonlat
              call check_answers(interp_data(k,j,i,1), ozone(k,j,i,1), tol, 'test interpolator_3D_no_time_axis')

diff --git a/test_fms/interpolator/test_interpolator2.sh b/test_fms/interpolator/test_interpolator2.sh
@@ -52,7 +52,7 @@ cat <<_EOF > input.nml
 /
 _EOF
 
-# Run test (skipped)
+# Run test
 test_expect_success "test interpolator" 'mpirun -n 1 ./test_interpolator'
-Original file line number
+Diff line change
@@ Expand Up / @@ -52,7 +52,7 @@ cat <<_EOF > input.nml @@
     /
     _EOF
-    # Run test (skipped)
+    # Run test
     test_expect_success "test interpolator" 'mpirun -n 1 ./test_interpolator'
@@ Expand Down @@