Add optional attribute to capgen test

NCAR · Feb 12, 2024 · 9337a2e · 9337a2e
1 parent d7bad29
commit 9337a2e
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/test/capgen_test/temp_adjust.F90 b/test/capgen_test/temp_adjust.F90
@@ -22,7 +22,7 @@ subroutine temp_adjust_run(foo, timestep, temp_prev, temp_layer, qv, ps,    &
 
     integer,                   intent(in)    :: foo
     real(kind_phys),           intent(in)    :: timestep
-    real(kind_phys),           intent(inout) :: qv(:)
+    real(kind_phys),           intent(inout),optional :: qv(:)
     real(kind_phys),           intent(inout) :: ps(:)
     REAL(kind_phys),           intent(in)    :: temp_prev(:)
     REAL(kind_phys),           intent(inout) :: temp_layer(foo)
@@ -42,7 +42,7 @@ subroutine temp_adjust_run(foo, timestep, temp_prev, temp_layer, qv, ps,    &
 
     do col_index = 1, foo
        temp_layer(col_index) = temp_layer(col_index) + temp_prev(col_index)
-       qv(col_index) = qv(col_index) + 1.0_kind_phys
+       if (present(qv)) qv(col_index) = qv(col_index) + 1.0_kind_phys
     end do
     if (present(innie) .and. present(outie) .and. present(optsie)) then
        outie = innie * optsie

diff --git a/test/capgen_test/temp_adjust.meta b/test/capgen_test/temp_adjust.meta
@@ -41,6 +41,7 @@
   kind = kind_phys
   intent = inout
   diagnostic_name_fixed = Q
+  optional = True
 [ ps ]
   standard_name = surface_air_pressure
   state_variable = true