Index

Rundeck: P1SoM40

Created: Thu May 9 03:30:17 EDT 2024

check_upper_limit

Module:

File: PBL_DRV.f

Summary: checks whether variable var exceeds maximum value varm. If it does set it to maximum value and writes warning message to file cwarn
Author : Jan Perlwitz
Version: 1.0

---

Declaration:

subroutine check_upper_limit(var, varm, cwarn, subr, vname)

Variables:

openunit : used from filemanager

closeunit : used from filemanager

itime : used from model_com

var : real(kind=8), intent(inout)

Variable to be checked and set to maximum value if larger (inout)

varm : real(kind=8), intent(in)

Maximum value of variable to be checked (in)

cwarn : character(*), intent(in)

File name for warning message (in)

subr : character(*), intent(in)

Name of subroutine (in)

vname : character(*), intent(in)

Name of variable (in)

iu : integer