Added vert interpolation routines (untested)

9 years ago · 06a5f5b163
1 changed files with 2 additions and 1 deletions
--- 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