fix typo in GFS_phys_time_vary.scm.F90

NCAR · Oct 17, 2024 · 69aacf5 · 69aacf5
1 parent fbb1515
commit 69aacf5
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/physics/Interstitials/UFS_SCM_NEPTUNE/GFS_phys_time_vary.scm.F90 b/physics/Interstitials/UFS_SCM_NEPTUNE/GFS_phys_time_vary.scm.F90
@@ -245,7 +245,7 @@ subroutine GFS_phys_time_vary_init (
 
 !> - Call setindxh2o() to initialize stratospheric water vapor data
          if (h2o_phys) then
-            call h2ophys%setup_h2oprog(xlat_d, jindx1_h, jindx2_h, ddy_h)
+            call h2ophys%setup(xlat_d, jindx1_h, jindx2_h, ddy_h)
          endif
 
 !> - Call setindxaer() to initialize aerosols data
@@ -786,7 +786,7 @@ subroutine GFS_phys_time_vary_timestep_init (
 
 !> - Update stratospheric h2o concentration.
          if (h2o_phys) then
-            call h2ophys%update_h2oprog(jindx1_h, jindx2_h, ddy_h, rjday, n1, n2, h2opl)
+            call h2ophys%update(jindx1_h, jindx2_h, ddy_h, rjday, n1, n2, h2opl)
          endif
 
 !> - Call ciinterpol() to make IN and CCN data interpolation