fixed error in use of _ASSERT() (lsm_routines.F90)

Author: gmao-rreichle

GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/GEOSland_GridComp/Shared/lsm_routines.F90

@@ -2720,11 +2720,13 @@ end subroutine dampen_tc_oscillations
   ! *******************************************************************
 
   subroutine get_Z0_FORMULATION_params( Z0_FORM, &
-       MIN_VEG_HEIGHT, SCALE4ZVG, SCALE4Z0 )
-
-    integer, intent(in)  :: Z0_FORM
-    real,    intent(out) :: MIN_VEG_HEIGHT, SCALE4ZVG, SCALE4Z0
+       MIN_VEG_HEIGHT, SCALE4ZVG, SCALE4Z0,      &
+       rc )
 
+    integer, intent(in)            :: Z0_FORM
+    real,    intent(out)           :: MIN_VEG_HEIGHT, SCALE4ZVG, SCALE4Z0
+    integer, intent(out), optional :: rc                                      ! needed for _ASSERT()
+    
     ! -------------------------------------------------
 
     select case (Z0_FORM)