From 7a79e1bc347f70ddb8d0f571030eff8e38ffa67a Mon Sep 17 00:00:00 2001 From: "Bin.Li" Date: Fri, 12 Nov 2021 21:44:22 +0000 Subject: [PATCH] update external_ic.F90 and fv_nudge.F90 --- tools/external_ic.F90 | 6 ++++++ tools/fv_nudge.F90 | 6 ++++++ 2 files changed, 12 insertions(+) diff --git a/tools/external_ic.F90 b/tools/external_ic.F90 index 836e75ca8..9e97336c8 100644 --- a/tools/external_ic.F90 +++ b/tools/external_ic.F90 @@ -4204,6 +4204,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)) @@ -4230,7 +4232,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 index 9e1d59d5b..3e2b58ae7 100644 --- a/tools/fv_nudge.F90 +++ b/tools/fv_nudge.F90 @@ -3576,6 +3576,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)) @@ -3602,7 +3604,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