Remove the incorrect comment; edge_adjust is intentionally real*4.

NCAR · Nov 1, 2022 · 7c04234 · 7c04234
1 parent 46326c7
commit 7c04234
Showing 1 changed file with 0 additions and 1 deletion.
diff --git a/src/Routing/Noah_distr_routing_overland.F b/src/Routing/Noah_distr_routing_overland.F
@@ -647,7 +647,6 @@ SUBROUTINE ROUTE_OVERLAND1(dt,                                &
 
 
 #ifdef MPP_LAND
-    ! use double precision to solve the underflow problem.
     call MPP_LAND_COM_REAL(edge_adjust,XX,YY,99)
 #endif
     QBDRY = QBDRY - edge_adjust ! making this negative term more negative