Flag for using mass vs freq distribution has been included.

NOAA-GFDL · Jun 9, 2015 · 15f3388 · 15f3388
1 parent 9dff46b
commit 15f3388
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/icebergs_framework.F90 b/icebergs_framework.F90
@@ -498,10 +498,10 @@ subroutine ice_bergs_framework_init(bergs, &
 !Added by Alon  - If a freq distribution is input, we have to convert the freq distribution to a mass flux distribution)
 if (input_freq_distribution) then
      Total_mass=0.
-     do j=1:nclasses
+     do j=1,nclasses
           Total_mass=Total_mass+(distribution(j)*initial_mass(j))
      enddo
-     do j=1:nclasses
+     do j=1,nclasses
            distribution(j)=(distribution(j)*initial_mass(j))/Total_mass
      enddo
 endif