clean up

NOAA-GFDL · Jun 27, 2024 · caeff54 · caeff54
1 parent 2b5fb08
commit caeff54
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/gsmphys/sfc_noahmp_drv.f b/gsmphys/sfc_noahmp_drv.f
@@ -131,7 +131,6 @@ subroutine noahmpdrv                                              &
 
       integer, dimension(im)                   :: jsnowxy
       real (kind=kind_phys),dimension(im)      :: snodep
-      real (kind=kind_phys),dimension(im,-2:4) :: tsnsoxy
 
 !  ---  output:
 
@@ -489,11 +488,11 @@ subroutine noahmpdrv                                              &
           wtx      = waxy(i)     
 
           do k = -2,0
-           tsnsoxy(i,k) = tsnoxy(i,k)
+           tsnsox(k) = tsnoxy(i,k)
           enddo
 
           do k = 1,4
-           tsnsoxy(i,k) = stc(i,k)
+           tsnsox(k) = stc(i,k)
           enddo
 
          do k = -2,0
@@ -511,7 +510,6 @@ subroutine noahmpdrv                                              &
 
           do k = -2, km
             zsnsox(k)  = zsnsoxy(i,k)
-            tsnsox(k)  = tsnsoxy(i,k)
           enddo
 
           lfmassx  = lfmassxy(i)