Skip to content

Commit

Permalink
Fix specialStringList in NUOPC cap
Browse files Browse the repository at this point in the history
  • Loading branch information
@danrosen25
danrosen25 committed Jan 29, 2025
1 parent 476d99d commit a672d19
Showing 1 changed file with 16 additions and 16 deletions.
32 changes: 16 additions & 16 deletions lis/runmodes/nuopc_cpl_mode/LIS_NUOPC_Cap.F90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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

Expand Down Expand Up @@ -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

Expand Down Expand Up @@ -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

Expand Down Expand Up @@ -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

Expand Down Expand Up @@ -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

Expand Down Expand Up @@ -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

Expand Down Expand Up @@ -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

Expand Down Expand Up @@ -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

Expand Down

0 comments on commit a672d19

Please sign in to comment.