Make the tracer tendency units mandatory.

NOAA-GSL · Apr 22, 2021 · 4750124 · 4750124
1 parent 7de499d
commit 4750124
Showing 1 changed file with 2 additions and 6 deletions.
diff --git a/ccpp/data/GFS_typedefs.F90 b/ccpp/data/GFS_typedefs.F90
@@ -6064,7 +6064,7 @@ subroutine label_dtend_tracer(Model,itrac,name,desc,unit)
     type(GFS_control_type), intent(inout) :: Model
     integer, intent(in) :: itrac
     character(len=*), intent(in) :: name, desc
-    character(len=*), optional, intent(in) :: unit
+    character(len=*), intent(in) :: unit
 
     if(itrac<2) then
        ! Special index 1 is for unallocated tracers
@@ -6073,11 +6073,7 @@ subroutine label_dtend_tracer(Model,itrac,name,desc,unit)
 
     Model%dtend_var_labels(itrac)%name = name
     Model%dtend_var_labels(itrac)%desc = desc
-    if(present(unit)) then
-       Model%dtend_var_labels(itrac)%unit=unit
-    else
-       Model%dtend_var_labels(itrac)%unit='kg kg-1 s-1'
-    endif
+    Model%dtend_var_labels(itrac)%unit = unit
   end subroutine label_dtend_tracer
 
   subroutine label_dtend_cause(Model,icause,name,desc,mod_name,time_avg)