update external_ic.F90 and fv_nudge.F90 (NOAA-GFDL#63)

laurenchilutti · Jan 20, 2022 · aa20e0a · aa20e0a
1 parent c1132dd
commit aa20e0a
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 0 deletions.
diff --git a/tools/external_ic.F90 b/tools/external_ic.F90
@@ -3945,6 +3945,8 @@ subroutine pmaxmin( qname, a, im, jm, fac )
          enddo
 
          write(*,*) qname, ' max = ', pmax*fac, ' min = ', pmin*fac
+         class default
+            call mpp_error(FATAL,'==> Error in external_ic: unsupported types in pmaxmin')
          end select
 
       type is (real(kind=r8_kind))
@@ -3971,7 +3973,11 @@ subroutine pmaxmin( qname, a, im, jm, fac )
          enddo
 
          write(*,*) qname, ' max = ', pmax8*fac, ' min = ', pmin8*fac
+         class default
+            call mpp_error(FATAL,'==> Error in external_ic: unsupported types in pmaxmin')
          end select
+      class default
+         call mpp_error(FATAL,'==> Error in external_ic: unsupported types in pmaxmin')
       end select
 
  end subroutine pmaxmin

diff --git a/tools/fv_nudge.F90 b/tools/fv_nudge.F90
@@ -3434,6 +3434,8 @@ subroutine pmaxmin( qname, a, imax, jmax, fac )
          enddo
 
          write(*,*) qname, ' max = ', pmax*fac, ' min = ', pmin*fac
+         class default
+            call mpp_error(FATAL,'==> Error in fv_nudge: unsupported types in pmaxmin')
          end select
 
       type is (real(kind=r8_kind))
@@ -3460,7 +3462,11 @@ subroutine pmaxmin( qname, a, imax, jmax, fac )
          enddo
 
          write(*,*) qname, ' max = ', pmax8*fac, ' min = ', pmin8*fac
+         class default
+            call mpp_error(FATAL,'==> Error in fv_nudge: unsupported types in pmaxmin')
          end select
+      class default
+         call mpp_error(FATAL,'==> Error in fv_nudge: unsupported types in pmaxmin')
       end select
 
  end subroutine pmaxmin