From a672d1929120dd8098d701408e839f0d378191fd Mon Sep 17 00:00:00 2001 From: Dan Rosen Date: Wed, 29 Jan 2025 17:06:43 -0500 Subject: [PATCH] Fix specialStringList in NUOPC cap --- lis/runmodes/nuopc_cpl_mode/LIS_NUOPC_Cap.F90 | 32 +++++++++---------- 1 file changed, 16 insertions(+), 16 deletions(-) diff --git a/lis/runmodes/nuopc_cpl_mode/LIS_NUOPC_Cap.F90 b/lis/runmodes/nuopc_cpl_mode/LIS_NUOPC_Cap.F90 index 356aa7a3a..13eacc383 100644 --- a/lis/runmodes/nuopc_cpl_mode/LIS_NUOPC_Cap.F90 +++ b/lis/runmodes/nuopc_cpl_mode/LIS_NUOPC_Cap.F90 @@ -165,14 +165,14 @@ subroutine InitializeP0(gcomp, importState, exportState, clock, rc) defaultValue="0", convention="NUOPC", purpose="Instance", rc=rc) if (ESMF_STDERRORCHECK(rc)) return diagnostic = ESMF_UtilString2Int(value, & - specialStringList=(/"min","max","bit16","maxplus"/), & + specialStringList=(/"min ","max ","bit16 ","maxplus"/), & specialValueList=(/0,65535,65536,131071/), rc=rc) if (ESMF_STDERRORCHECK(rc)) return call ESMF_AttributeGet(gcomp, name="Verbosity", value=value, & defaultValue="0", convention="NUOPC", purpose="Instance", rc=rc) if (ESMF_STDERRORCHECK(rc)) return verbosity = ESMF_UtilString2Int(value, & - specialStringList=(/"min","max","bit16","maxplus"/), & + specialStringList=(/"min ","max ","bit16 ","maxplus"/), & specialValueList=(/0,65535,65536,131071/), rc=rc) if (ESMF_STDERRORCHECK(rc)) return @@ -371,14 +371,14 @@ subroutine InitializeP1(gcomp, importState, exportState, clock, rc) defaultValue="0", convention="NUOPC", purpose="Instance", rc=rc) if (ESMF_STDERRORCHECK(rc)) return diagnostic = ESMF_UtilString2Int(value, & - specialStringList=(/"min","max","bit16","maxplus"/), & + specialStringList=(/"min ","max ","bit16 ","maxplus"/), & specialValueList=(/0,65535,65536,131071/), rc=rc) if (ESMF_STDERRORCHECK(rc)) return call ESMF_AttributeGet(gcomp, name="Verbosity", value=value, & defaultValue="0", convention="NUOPC", purpose="Instance", rc=rc) if (ESMF_STDERRORCHECK(rc)) return verbosity = ESMF_UtilString2Int(value, & - specialStringList=(/"min","max","bit16","maxplus"/), & + specialStringList=(/"min ","max ","bit16 ","maxplus"/), & specialValueList=(/0,65535,65536,131071/), rc=rc) if (ESMF_STDERRORCHECK(rc)) return @@ -594,14 +594,14 @@ subroutine InitializeP3(gcomp, importState, exportState, clock, rc) defaultValue="0", convention="NUOPC", purpose="Instance", rc=rc) if (ESMF_STDERRORCHECK(rc)) return diagnostic = ESMF_UtilString2Int(value, & - specialStringList=(/"min","max","bit16","maxplus"/), & + specialStringList=(/"min ","max ","bit16 ","maxplus"/), & specialValueList=(/0,65535,65536,131071/), rc=rc) if (ESMF_STDERRORCHECK(rc)) return call ESMF_AttributeGet(gcomp, name="Verbosity", value=value, & defaultValue="0", convention="NUOPC", purpose="Instance", rc=rc) if (ESMF_STDERRORCHECK(rc)) return verbosity = ESMF_UtilString2Int(value, & - specialStringList=(/"min","max","bit16","maxplus"/), & + specialStringList=(/"min ","max ","bit16 ","maxplus"/), & specialValueList=(/0,65535,65536,131071/), rc=rc) if (ESMF_STDERRORCHECK(rc)) return @@ -878,14 +878,14 @@ subroutine DataInitialize(gcomp, rc) defaultValue="0", convention="NUOPC", purpose="Instance", rc=rc) if (ESMF_STDERRORCHECK(rc)) return diagnostic = ESMF_UtilString2Int(value, & - specialStringList=(/"min","max","bit16","maxplus"/), & + specialStringList=(/"min ","max ","bit16 ","maxplus"/), & specialValueList=(/0,65535,65536,131071/), rc=rc) if (ESMF_STDERRORCHECK(rc)) return call ESMF_AttributeGet(gcomp, name="Verbosity", value=value, & defaultValue="0", convention="NUOPC", purpose="Instance", rc=rc) if (ESMF_STDERRORCHECK(rc)) return verbosity = ESMF_UtilString2Int(value, & - specialStringList=(/"min","max","bit16","maxplus"/), & + specialStringList=(/"min ","max ","bit16 ","maxplus"/), & specialValueList=(/0,65535,65536,131071/), rc=rc) if (ESMF_STDERRORCHECK(rc)) return @@ -1101,14 +1101,14 @@ subroutine SetClock(gcomp, rc) defaultValue="0", convention="NUOPC", purpose="Instance", rc=rc) if (ESMF_STDERRORCHECK(rc)) return diagnostic = ESMF_UtilString2Int(value, & - specialStringList=(/"min","max","bit16","maxplus"/), & + specialStringList=(/"min ","max ","bit16 ","maxplus"/), & specialValueList=(/0,65535,65536,131071/), rc=rc) if (ESMF_STDERRORCHECK(rc)) return call ESMF_AttributeGet(gcomp, name="Verbosity", value=value, & defaultValue="0", convention="NUOPC", purpose="Instance", rc=rc) if (ESMF_STDERRORCHECK(rc)) return verbosity = ESMF_UtilString2Int(value, & - specialStringList=(/"min","max","bit16","maxplus"/), & + specialStringList=(/"min ","max ","bit16 ","maxplus"/), & specialValueList=(/0,65535,65536,131071/), rc=rc) if (ESMF_STDERRORCHECK(rc)) return @@ -1190,14 +1190,14 @@ subroutine CheckImport(gcomp, rc) defaultValue="0", convention="NUOPC", purpose="Instance", rc=rc) if (ESMF_STDERRORCHECK(rc)) return diagnostic = ESMF_UtilString2Int(value, & - specialStringList=(/"min","max","bit16","maxplus"/), & + specialStringList=(/"min ","max ","bit16 ","maxplus"/), & specialValueList=(/0,65535,65536,131071/), rc=rc) if (ESMF_STDERRORCHECK(rc)) return call ESMF_AttributeGet(gcomp, name="Verbosity", value=value, & defaultValue="0", convention="NUOPC", purpose="Instance", rc=rc) if (ESMF_STDERRORCHECK(rc)) return verbosity = ESMF_UtilString2Int(value, & - specialStringList=(/"min","max","bit16","maxplus"/), & + specialStringList=(/"min ","max ","bit16 ","maxplus"/), & specialValueList=(/0,65535,65536,131071/), rc=rc) if (ESMF_STDERRORCHECK(rc)) return @@ -1265,14 +1265,14 @@ subroutine ModelAdvance(gcomp, rc) defaultValue="0", convention="NUOPC", purpose="Instance", rc=rc) if (ESMF_STDERRORCHECK(rc)) return diagnostic = ESMF_UtilString2Int(value, & - specialStringList=(/"min","max","bit16","maxplus"/), & + specialStringList=(/"min ","max ","bit16 ","maxplus"/), & specialValueList=(/0,65535,65536,131071/), rc=rc) if (ESMF_STDERRORCHECK(rc)) return call ESMF_AttributeGet(gcomp, name="Verbosity", value=value, & defaultValue="0", convention="NUOPC", purpose="Instance", rc=rc) if (ESMF_STDERRORCHECK(rc)) return verbosity = ESMF_UtilString2Int(value, & - specialStringList=(/"min","max","bit16","maxplus"/), & + specialStringList=(/"min ","max ","bit16 ","maxplus"/), & specialValueList=(/0,65535,65536,131071/), rc=rc) if (ESMF_STDERRORCHECK(rc)) return @@ -1453,14 +1453,14 @@ subroutine ModelFinalize(gcomp, rc) defaultValue="0", convention="NUOPC", purpose="Instance", rc=rc) if (ESMF_STDERRORCHECK(rc)) return diagnostic = ESMF_UtilString2Int(value, & - specialStringList=(/"min","max","bit16","maxplus"/), & + specialStringList=(/"min ","max ","bit16 ","maxplus"/), & specialValueList=(/0,65535,65536,131071/), rc=rc) if (ESMF_STDERRORCHECK(rc)) return call ESMF_AttributeGet(gcomp, name="Verbosity", value=value, & defaultValue="0", convention="NUOPC", purpose="Instance", rc=rc) if (ESMF_STDERRORCHECK(rc)) return verbosity = ESMF_UtilString2Int(value, & - specialStringList=(/"min","max","bit16","maxplus"/), & + specialStringList=(/"min ","max ","bit16 ","maxplus"/), & specialValueList=(/0,65535,65536,131071/), rc=rc) if (ESMF_STDERRORCHECK(rc)) return