Skip to content

Instantly share code, notes, and snippets.

@boegel
Created November 25, 2013 11:16
Show Gist options
  • Save boegel/7639845 to your computer and use it in GitHub Desktop.
Save boegel/7639845 to your computer and use it in GitHub Desktop.
WPS tarball changed upstream
# bis is the more recent WPS v3.5.1 tarball
$ md5 WPS*gz
MD5 (WPSV3.5.1-bis.TAR.gz) = ce0eb551d29e04f688e02d522d327c2c
MD5 (WPSV3.5.1.TAR.gz) = 0dd6b0b51321c836d3e60764f00ecb85
$ diff -ru WPS.bis WPS
diff -ru WPS.bis/configure WPS/configure
--- WPS.bis/configure 2013-10-04 02:09:42.000000000 +0200
+++ WPS/configure 2013-01-24 01:44:41.000000000 +0100
@@ -319,7 +319,7 @@
FFLAGS=`grep ^FFLAGS configure.wps | cut -d"=" -f2-`
cp $NETCDF/include/netcdf.inc .
FC=`grep ^SFC configure.wps | cut -d"=" -f2-`
- $FC ${FFLAGS} fort_netcdf.f -o fort_netcdf -L${NETCDF}/lib $NETCDFF -lnetcdf > /dev/null 2>&1
+ $FC ${FFLAGS} fort_netcdf.f -o fort_netcdf -L${NETCDF}/lib -lnetcdf $NETCDFF > /dev/null 2>&1
if [ -f "fort_netcdf" ] ; then
./fort_netcdf > /dev/null 2>&1
if [ $? = 0 ]; then
diff -ru WPS.bis/ungrib/src/g2print.F WPS/ungrib/src/g2print.F
--- WPS.bis/ungrib/src/g2print.F 2013-10-04 02:09:42.000000000 +0200
+++ WPS/ungrib/src/g2print.F 2013-01-24 01:44:41.000000000 +0100
@@ -22,7 +22,7 @@
integer :: iprint
- integer , parameter :: maxlvl = 150
+ integer , parameter :: maxlvl = 100
real :: startlat, startlon, deltalat, deltalon
real :: level
@@ -171,8 +171,8 @@
real :: level
real :: scale_factor
integer :: iplvl, lvl2
- ! For subroutine output
- integer , parameter :: maxlvl = 150
+ ! For subroutine outout
+ integer , parameter :: maxlvl = 100
real , dimension(maxlvl) :: plvl
integer :: nlvl
integer , dimension(maxlvl) :: level_array
diff -ru WPS.bis/ungrib/src/rd_grib2.F WPS/ungrib/src/rd_grib2.F
--- WPS.bis/ungrib/src/rd_grib2.F 2013-10-04 02:09:42.000000000 +0200
+++ WPS/ungrib/src/rd_grib2.F 2013-02-20 07:36:52.000000000 +0100
@@ -69,7 +69,7 @@
character (len=9) :: my_field
character (len=8) :: tmp8
! For subroutine output
- integer , parameter :: maxlvl = 150
+ integer , parameter :: maxlvl = 100
real , dimension(maxlvl) :: plvl
integer :: nlvl
integer , dimension(maxlvl) :: level_array
diff -ru WPS.bis/ungrib/src/ungrib.F WPS/ungrib/src/ungrib.F
--- WPS.bis/ungrib/src/ungrib.F 2013-10-04 02:09:42.000000000 +0200
+++ WPS/ungrib/src/ungrib.F 2013-01-25 02:16:53.000000000 +0100
@@ -59,7 +59,7 @@
integer :: debug_level
- integer , parameter :: maxlvl = 150
+ integer , parameter :: maxlvl = 100
real , dimension(maxlvl) :: plvl
integer :: iplvl
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment