Merge pull request #212 from apcraig/testC

minor updates for testing
CICE-Consortium · Aug 3, 2018 · 3422428 · 3422428
2 parents fd52cb1 + c7d69c7
commit 3422428
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 3 deletions.
diff --git a/columnphysics/icepack_warnings.F90 b/columnphysics/icepack_warnings.F90
@@ -107,7 +107,9 @@ subroutine icepack_warnings_print(iounit)
         character(len=*),parameter :: subname='(icepack_warnings_print)'
 
         do iWarning = 1, icepack_warnings_number()
-           write(iounit,*) trim(icepack_warnings_getone(iWarning))
+! tcx, tcraig this causes a recursive IO error on some platforms/compilers
+!          write(iounit,*) trim(icepack_warnings_getone(iWarning))
+           write(iounit,*) trim(warnings(iWarning))
         enddo
 
       end subroutine icepack_warnings_print

diff --git a/configuration/scripts/icepack.batch.csh b/configuration/scripts/icepack.batch.csh
@@ -40,7 +40,7 @@ EOF0
 if (${ICE_MACHINE} =~ cheyenne*) then
 cat >> ${jobfile} << EOFB
 #PBS -j oe 
-#PBS -m ae 
+###PBS -m ae 
 #PBS -V
 #PBS -q share
 #PBS -N ${ICE_CASENAME}
@@ -52,7 +52,7 @@ EOFB
 else if (${ICE_MACHINE} =~ hobart*) then
 cat >> ${jobfile} << EOFB
 #PBS -j oe 
-#PBS -m ae 
+###PBS -m ae 
 #PBS -V
 #PBS -q short
 #PBS -N ${ICE_CASENAME}