Correction to the initialization of the river ports

abozec · Apr 15, 2016 · 4f99570 · 4f99570
1 parent 713f376
commit 4f99570
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/dpthuv.F b/dpthuv.F
@@ -31,8 +31,6 @@ subroutine dpthuv
         call latbdt( 0,0)
       elseif (lbflag.eq.4) then
           call latbdtf(0,0)
-      elseif (rivrtr.eq.1) then
-          call latbdt_river(0,0) !!Alex river
       else
 !$OMP PARALLEL DO PRIVATE(j,i)
 !$OMP&         SCHEDULE(STATIC,jblk)
@@ -43,7 +41,10 @@ subroutine dpthuv
           enddo
         enddo
       endif
+      if (rivrtr.eq.1) call latbdt_river(0,0) !!Alex river
 c
+
+
       call xctilr(pbot, 1,1, nbdy,nbdy, halo_ps)
       call xctilr(corio,1,1, nbdy,nbdy, halo_qs)
 c