modsurface: initialize ustar, otherwise uninitialized corner values a…

…re handled in the first exchange
dalesteam · Sep 4, 2024 · 6ce6c13 · 6ce6c13
1 parent 9640d69
commit 6ce6c13
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/modsurface.f90 b/src/modsurface.f90
@@ -745,6 +745,7 @@ subroutine initsurface
     endif
 
     dqtdz = 0 ! need to initialize, otherwise undefined in the first call to thermodynamics, before call surface (cold start)
+    ustar = 0 ! need to initialize, otherwise undefined values in the corners in the first exchange
 
     !$acc enter data copyin(z0m, z0h, obl, tskin, qskin, Cm, Cs, &
     !$acc&                  ustar, dudz, dvdz, thlflux, qtflux, &