Add logic to halt snow increment update for noah-mp or

fractional grids. Fixes ufs-community#549.
GeorgeGayno-NOAA · Sep 18, 2023 · 64e138b · 64e138b
1 parent e67a305
commit 64e138b
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/sorc/global_cycle.fd/cycle.f90 b/sorc/global_cycle.fd/cycle.f90
@@ -508,6 +508,16 @@ SUBROUTINE SFCDRV(LUGB, IDIM,JDIM,LENSFC,LSOIL,DELTSFC,  &
    call MPI_ABORT(MPI_COMM_WORLD, 18, IERR)
  ENDIF
 
+ IF (FRAC_GRID .AND. DO_SNO_INC) THEN
+   print *, 'FATAL ERROR: Snow increment update does not work with fractional grids.'
+   call MPI_ABORT(MPI_COMM_WORLD, 19, IERR)
+ ENDIF
+
+ IF (IS_NOAHMP .AND. DO_SNO_INC) THEN
+   print *, 'FATAL ERROR: Snow increment update does not work with NOAH_MP.'
+   call MPI_ABORT(MPI_COMM_WORLD, 29, IERR)
+ ENDIF
+
 !ichk = 282
 !jchk = 362
 !ijchk = (jchk-1) * idim + ichk