uncomment deallocate in calvor

NOAA-EMC · Dec 4, 2024 · f88bf42 · f88bf42
1 parent 4627df4
commit f88bf42
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/sorc/ncep_post.fd/UPP_PHYSICS.f b/sorc/ncep_post.fd/UPP_PHYSICS.f
@@ -2066,7 +2066,7 @@ SUBROUTINE CALVOR(UWND,VWND,ABSV)
         if(jsta== 1) absv(ista:iend, 1)=avtemp(ista:iend, 1)
         if(jend==jm) absv(ista:iend,jm)=avtemp(ista:iend,jm)
 
-!        deallocate (wrk1, wrk2, wrk3, cosl, iw, ie)
+        deallocate (wrk1, wrk2, wrk3, cosl, iw, ie)
 
       ELSE !(MODELNAME == 'GFS' .or. global)