kdrydep -> kwetdep

metno · Feb 14, 2025 · 7acdf0f · 7acdf0f
1 parent 88e6e21
commit 7acdf0f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/common/wetdep.f90 b/src/common/wetdep.f90
@@ -517,7 +517,7 @@ subroutine wetdep_precompute()
     integer :: i
 
     do i=1,ncomp
-      if (.not.run_comp(i)%defined%kdrydep == 1) cycle
+      if (.not.run_comp(i)%defined%kwetdep == 1) cycle
       if (wetdep_scheme%use_vertical) then
         if (.not.(allocated(precip3d).and.allocated(cw3d).and.allocated(wscav))) then
           error stop "Some wetdep/precip fields not allocated"