missing endif

wrf-model · Apr 28, 2022 · a2d53f3 · a2d53f3
1 parent 28702c9
commit a2d53f3
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 1 deletion.
diff --git a/phys/module_microphysics_driver.F b/phys/module_microphysics_driver.F
@@ -1118,6 +1118,9 @@ SUBROUTINE microphysics_driver(                                          &
                     ,qnocbb2d, qnbcbb2d, dt, ids, ide, jds, jde, kds, kde                    &
                     ,ims, ime, jms, jme, kms, kme, its, ite, jts, jte, kts, kte                       )
               ENDIF
+             ELSE
+                CALL wrf_error_fatal ( 'arguments not present for calling thompson_et_al' )
+             ENDIF
 !
         CASE (THOMPSONGH)
              CALL wrf_debug ( 100 , 'microphysics_driver: calling thompson' )

diff --git a/phys/noahmp b/phys/noahmp
+36 −20		drivers/wrf/module_sf_noahmpdrv.F
+22 −17		src/module_sf_noahmp_glacier.F
+35 −32		src/module_sf_noahmplsm.F