argument -> variable for nvfortran?

earth-system-radiation · Jan 4, 2024 · e20941a · e20941a
1 parent 463792d
commit e20941a
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 5 deletions.
diff --git a/tests/mo_testing_utils.F90 b/tests/mo_testing_utils.F90
@@ -237,14 +237,15 @@ subroutine increment_with_nstr(atmos)
   end subroutine increment_with_nstr 
   ! ----------------------------------------------------------------------------
   !
-  ! Vertically reverse
+  ! Vertically reverse optical
   ! 
   subroutine vr(atmos, sources)
     class(ty_optical_props_arry), intent(inout) :: atmos
     type(ty_source_func_lw), optional, & 
                                   intent(inout) :: sources
 
     integer :: nlay
+    ! -----------------------
     nlay = atmos%get_nlay()
 
     atmos%tau = atmos%tau(:,nlay:1:-1,:)

diff --git a/tests/rte_unit_tests.F90 b/tests/rte_unit_tests.F90
@@ -116,7 +116,7 @@ program rte_unit_tests
   nullify(fluxes%flux_dn)
   call stop_on_err(rte_lw(lw_atmos, top_at_1,  &
                           lw_sources, sfc_emis,&
-                          fluxes = fluxes))
+                          fluxes))
   call check_fluxes(ref_flux_net, ref_flux_dn-ref_flux_up, &
                     passed, "Net fluxes computed alone doesn'tt match down-up computed separately")
   !
@@ -126,7 +126,7 @@ program rte_unit_tests
   fluxes%flux_dn  => tst_flux_dn (:,:)
   call stop_on_err(rte_lw(lw_atmos,   top_at_1, &
                           lw_sources, sfc_emis, &
-                          fluxes = fluxes))
+                          fluxes))
   call check_fluxes(ref_flux_net, tst_flux_dn-tst_flux_up, & 
                     passed, "net fluxes don't match down-up computed together")
   ! -------------------------------------------------------
@@ -147,12 +147,14 @@ program rte_unit_tests
   print *, "  Vertical orientation invariance"
   call gray_rad_equil(sfc_t, lw_total_tau, nlay, top_at_1, lw_atmos, lw_sources)
   call vr(lw_atmos, lw_sources)
-  call stop_on_err(rte_lw(lw_atmos,   .not. top_at_1, &
+  top_at_1 = .not. top_at_1
+  call stop_on_err(rte_lw(lw_atmos,   top_at_1, &
                           lw_sources, sfc_emis, &
-                          fluxes = fluxes))
+                          fluxes))
   call check_fluxes(tst_flux_up(:,nlay+1:1:-1), ref_flux_up, &  
                     tst_flux_dn(:,nlay+1:1:-1), ref_flux_dn, & 
                     passed, "Doing problem upside down fails")
+  top_at_1 = .not. top_at_1
 
   ! -------------------------------------------------------
   !