Skip to content

Commit

Permalink
Fix NUOPC cap for GNU compilers
Browse files Browse the repository at this point in the history
  • Loading branch information
@danrosen25
danrosen25 committed Apr 28, 2021
1 parent ba02e46 commit d617930
Show file tree
Hide file tree
Showing 2 changed files with 42 additions and 42 deletions.
64 changes: 32 additions & 32 deletions trunk/NDHMS/CPL/NUOPC_cpl/WRFHydro_NUOPC_Cap.F90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -365,15 +365,15 @@ subroutine InitializeP0(gcomp, importState, exportState, clock, rc)
defaultValue="0", convention="NUOPC", purpose="Instance", rc=rc)
if (ESMF_STDERRORCHECK(rc)) return ! bail out
diagnostic = ESMF_UtilString2Int(value, &
specialStringList=(/"min","max","bit16","maxplus"/), &
specialValueList=(/0,65535,65536,131071/), rc=rc)
specialStringList=(/"max ","high","low ","off "/), &
specialValueList= (/ 65535, 65535, 65535, 0/), rc=rc)
if (ESMF_STDERRORCHECK(rc)) return ! bail out
call ESMF_AttributeGet(gcomp, name="Verbosity", value=value, &
defaultValue="0", convention="NUOPC", purpose="Instance", rc=rc)
if (ESMF_STDERRORCHECK(rc)) return ! bail out
verbosity = ESMF_UtilString2Int(value, &
specialStringList=(/"min","max","bit16","maxplus"/), &
specialValueList=(/0,65535,65536,131071/), rc=rc)
specialStringList=(/"max ","high","low ","off "/), &
specialValueList= (/ 65535, 65281, 8193, 0/), rc=rc)
if (ESMF_STDERRORCHECK(rc)) return ! bail out

! query Component for its internal State
Expand Down Expand Up @@ -613,15 +613,15 @@ subroutine InitializeP1(gcomp, importState, exportState, clock, rc)
defaultValue="0", convention="NUOPC", purpose="Instance", rc=rc)
if (ESMF_STDERRORCHECK(rc)) return ! bail out
diagnostic = ESMF_UtilString2Int(value, &
specialStringList=(/"min","max","bit16","maxplus"/), &
specialValueList=(/0,65535,65536,131071/), rc=rc)
specialStringList=(/"max ","high","low ","off "/), &
specialValueList= (/ 65535, 65535, 65535, 0/), rc=rc)
if (ESMF_STDERRORCHECK(rc)) return ! bail out
call ESMF_AttributeGet(gcomp, name="Verbosity", value=value, &
defaultValue="0", convention="NUOPC", purpose="Instance", rc=rc)
if (ESMF_STDERRORCHECK(rc)) return ! bail out
verbosity = ESMF_UtilString2Int(value, &
specialStringList=(/"min","max","bit16","maxplus"/), &
specialValueList=(/0,65535,65536,131071/), rc=rc)
specialStringList=(/"max ","high","low ","off "/), &
specialValueList= (/ 65535, 65281, 8193, 0/), rc=rc)
if (ESMF_STDERRORCHECK(rc)) return ! bail out

! query Component for its internal State
Expand Down Expand Up @@ -769,15 +769,15 @@ subroutine InitializeP3(gcomp, importState, exportState, clock, rc)
defaultValue="0", convention="NUOPC", purpose="Instance", rc=rc)
if (ESMF_STDERRORCHECK(rc)) return ! bail out
diagnostic = ESMF_UtilString2Int(value, &
specialStringList=(/"min","max","bit16","maxplus"/), &
specialValueList=(/0,65535,65536,131071/), rc=rc)
specialStringList=(/"max ","high","low ","off "/), &
specialValueList= (/ 65535, 65535, 65535, 0/), rc=rc)
if (ESMF_STDERRORCHECK(rc)) return ! bail out
call ESMF_AttributeGet(gcomp, name="Verbosity", value=value, &
defaultValue="0", convention="NUOPC", purpose="Instance", rc=rc)
if (ESMF_STDERRORCHECK(rc)) return ! bail out
verbosity = ESMF_UtilString2Int(value, &
specialStringList=(/"min","max","bit16","maxplus"/), &
specialValueList=(/0,65535,65536,131071/), rc=rc)
specialStringList=(/"max ","high","low ","off "/), &
specialValueList= (/ 65535, 65281, 8193, 0/), rc=rc)
if (ESMF_STDERRORCHECK(rc)) return ! bail out

! query Component for its internal State
Expand Down Expand Up @@ -988,15 +988,15 @@ subroutine DataInitialize(gcomp, rc)
defaultValue="0", convention="NUOPC", purpose="Instance", rc=rc)
if (ESMF_STDERRORCHECK(rc)) return ! bail out
diagnostic = ESMF_UtilString2Int(value, &
specialStringList=(/"min","max","bit16","maxplus"/), &
specialValueList=(/0,65535,65536,131071/), rc=rc)
specialStringList=(/"max ","high","low ","off "/), &
specialValueList= (/ 65535, 65535, 65535, 0/), rc=rc)
if (ESMF_STDERRORCHECK(rc)) return ! bail out
call ESMF_AttributeGet(gcomp, name="Verbosity", value=value, &
defaultValue="0", convention="NUOPC", purpose="Instance", rc=rc)
if (ESMF_STDERRORCHECK(rc)) return ! bail out
verbosity = ESMF_UtilString2Int(value, &
specialStringList=(/"min","max","bit16","maxplus"/), &
specialValueList=(/0,65535,65536,131071/), rc=rc)
specialStringList=(/"max ","high","low ","off "/), &
specialValueList= (/ 65535, 65281, 8193, 0/), rc=rc)
if (ESMF_STDERRORCHECK(rc)) return ! bail out

! query Component for its internal State
Expand Down Expand Up @@ -1139,15 +1139,15 @@ subroutine SetClock(gcomp, rc)
defaultValue="0", convention="NUOPC", purpose="Instance", rc=rc)
if (ESMF_STDERRORCHECK(rc)) return ! bail out
diagnostic = ESMF_UtilString2Int(value, &
specialStringList=(/"min","max","bit16","maxplus"/), &
specialValueList=(/0,65535,65536,131071/), rc=rc)
specialStringList=(/"max ","high","low ","off "/), &
specialValueList= (/ 65535, 65535, 65535, 0/), rc=rc)
if (ESMF_STDERRORCHECK(rc)) return ! bail out
call ESMF_AttributeGet(gcomp, name="Verbosity", value=value, &
defaultValue="0", convention="NUOPC", purpose="Instance", rc=rc)
if (ESMF_STDERRORCHECK(rc)) return ! bail out
verbosity = ESMF_UtilString2Int(value, &
specialStringList=(/"min","max","bit16","maxplus"/), &
specialValueList=(/0,65535,65536,131071/), rc=rc)
specialStringList=(/"max ","high","low ","off "/), &
specialValueList= (/ 65535, 65281, 8193, 0/), rc=rc)
if (ESMF_STDERRORCHECK(rc)) return ! bail out

! query Component for its internal State
Expand Down Expand Up @@ -1258,15 +1258,15 @@ subroutine CheckImport(gcomp, rc)
defaultValue="0", convention="NUOPC", purpose="Instance", rc=rc)
if (ESMF_STDERRORCHECK(rc)) return ! bail out
diagnostic = ESMF_UtilString2Int(value, &
specialStringList=(/"min","max","bit16","maxplus"/), &
specialValueList=(/0,65535,65536,131071/), rc=rc)
specialStringList=(/"max ","high","low ","off "/), &
specialValueList= (/ 65535, 65535, 65535, 0/), rc=rc)
if (ESMF_STDERRORCHECK(rc)) return ! bail out
call ESMF_AttributeGet(gcomp, name="Verbosity", value=value, &
defaultValue="0", convention="NUOPC", purpose="Instance", rc=rc)
if (ESMF_STDERRORCHECK(rc)) return ! bail out
verbosity = ESMF_UtilString2Int(value, &
specialStringList=(/"min","max","bit16","maxplus"/), &
specialValueList=(/0,65535,65536,131071/), rc=rc)
specialStringList=(/"max ","high","low ","off "/), &
specialValueList= (/ 65535, 65281, 8193, 0/), rc=rc)
if (ESMF_STDERRORCHECK(rc)) return ! bail out

! query Component for its internal State
Expand Down Expand Up @@ -1325,15 +1325,15 @@ subroutine ModelAdvance(gcomp, rc)
defaultValue="0", convention="NUOPC", purpose="Instance", rc=rc)
if (ESMF_STDERRORCHECK(rc)) return ! bail out
diagnostic = ESMF_UtilString2Int(value, &
specialStringList=(/"min","max","bit16","maxplus"/), &
specialValueList=(/0,65535,65536,131071/), rc=rc)
specialStringList=(/"max ","high","low ","off "/), &
specialValueList= (/ 65535, 65535, 65535, 0/), rc=rc)
if (ESMF_STDERRORCHECK(rc)) return ! bail out
call ESMF_AttributeGet(gcomp, name="Verbosity", value=value, &
defaultValue="0", convention="NUOPC", purpose="Instance", rc=rc)
if (ESMF_STDERRORCHECK(rc)) return ! bail out
verbosity = ESMF_UtilString2Int(value, &
specialStringList=(/"min","max","bit16","maxplus"/), &
specialValueList=(/0,65535,65536,131071/), rc=rc)
specialStringList=(/"max ","high","low ","off "/), &
specialValueList= (/ 65535, 65281, 8193, 0/), rc=rc)
if (ESMF_STDERRORCHECK(rc)) return ! bail out

! query component for its internal State
Expand Down Expand Up @@ -1485,15 +1485,15 @@ subroutine ModelFinalize(gcomp,rc)
defaultValue="0", convention="NUOPC", purpose="Instance", rc=rc)
if (ESMF_STDERRORCHECK(rc)) return ! bail out
diagnostic = ESMF_UtilString2Int(value, &
specialStringList=(/"min","max","bit16","maxplus"/), &
specialValueList=(/0,65535,65536,131071/), rc=rc)
specialStringList=(/"max ","high","low ","off "/), &
specialValueList= (/ 65535, 65535, 65535, 0/), rc=rc)
if (ESMF_STDERRORCHECK(rc)) return ! bail out
call ESMF_AttributeGet(gcomp, name="Verbosity", value=value, &
defaultValue="0", convention="NUOPC", purpose="Instance", rc=rc)
if (ESMF_STDERRORCHECK(rc)) return ! bail out
verbosity = ESMF_UtilString2Int(value, &
specialStringList=(/"min","max","bit16","maxplus"/), &
specialValueList=(/0,65535,65536,131071/), rc=rc)
specialStringList=(/"max ","high","low ","off "/), &
specialValueList= (/ 65535, 65281, 8193, 0/), rc=rc)
if (ESMF_STDERRORCHECK(rc)) return ! bail out

! query Component for its internal State
Expand Down
20 changes: 10 additions & 10 deletions trunk/NDHMS/CPL/NUOPC_cpl/WRFHydro_NUOPC_Gluecode.F90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -315,11 +315,11 @@ subroutine wrfhydro_nuopc_ini(did,vm,clock,forcingDir,rc)
call orchestrator%init()

! Set default namelist values
read (startTimeStr(1:4),"(I)") nlst(did)%START_YEAR
read (startTimeStr(6:7),"(I)") nlst(did)%START_MONTH
read (startTimeStr(9:10),"(I)") nlst(did)%START_DAY
read (startTimeStr(12:13),"(I)") nlst(did)%START_HOUR
read (startTimeStr(15:16),"(I)") nlst(did)%START_MIN
read (startTimeStr(1:4),"(I4)") nlst(did)%START_YEAR
read (startTimeStr(6:7),"(I2)") nlst(did)%START_MONTH
read (startTimeStr(9:10),"(I2)") nlst(did)%START_DAY
read (startTimeStr(12:13),"(I2)") nlst(did)%START_HOUR
read (startTimeStr(15:16),"(I2)") nlst(did)%START_MIN
nlst(did)%startdate(1:19) = startTimeStr(1:19)
nlst(did)%olddate(1:19) = startTimeStr(1:19)
nlst(did)%dt = dt
Expand Down Expand Up @@ -461,11 +461,11 @@ subroutine wrfhydro_nuopc_ini(did,vm,clock,forcingDir,rc)
#endif

! Override the clock configuration in hyro.namelist
read (startTimeStr(1:4),"(I)") nlst(did)%START_YEAR
read (startTimeStr(6:7),"(I)") nlst(did)%START_MONTH
read (startTimeStr(9:10),"(I)") nlst(did)%START_DAY
read (startTimeStr(12:13),"(I)") nlst(did)%START_HOUR
read (startTimeStr(15:16),"(I)") nlst(did)%START_MIN
read (startTimeStr(1:4),"(I4)") nlst(did)%START_YEAR
read (startTimeStr(6:7),"(I2)") nlst(did)%START_MONTH
read (startTimeStr(9:10),"(I2)") nlst(did)%START_DAY
read (startTimeStr(12:13),"(I2)") nlst(did)%START_HOUR
read (startTimeStr(15:16),"(I2)") nlst(did)%START_MIN
nlst(did)%startdate(1:19) = startTimeStr(1:19)
nlst(did)%olddate(1:19) = startTimeStr(1:19)
nlst(did)%dt = dt
Expand Down

0 comments on commit d617930

Please sign in to comment.