From 06a5f5b163a9f3e649c1b2f34744c8eb3081d722 Mon Sep 17 00:00:00 2001 From: Bill Ladwig Date: Wed, 6 Jan 2016 16:00:16 -0700 Subject: [PATCH] Added vert interpolation routines (untested) --- wrf_open/var/src/python/wrf/var/wrfext.f90 | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/wrf_open/var/src/python/wrf/var/wrfext.f90 b/wrf_open/var/src/python/wrf/var/wrfext.f90 index 03ef1f6..d68fae3 100755 --- a/wrf_open/var/src/python/wrf/var/wrfext.f90 +++ b/wrf_open/var/src/python/wrf/var/wrfext.f90 @@ -2128,7 +2128,8 @@ SUBROUTINE f_vintrp(datain,dataout,pres,tk,qvp,ght,terrain,& IF (datain(i,j,1) .EQ. rmsg) THEN tempout(i,j) = rmsg - GOTO 333 ! CYCLE + !GOTO 333 ! CYCLE + CYCLE END IF