RichardEssery/FSM2

Very minor code bugs

Closed this issue · 0 comments

GiuliaMazzotti commented

3 minor things I think should be adapted:

  1. SETUP.F90, line 55: add Pscl ?
  2. RADIATION.F90, line 143: SW(i,j) = Sdif+Sdir --> SW(i,j) = Sdif(i,j)+Sdir(i,j)
  3. RADIATION.F90, line 154: if (Sdif > epsilon(Sdif)) --> if (Sdir > epsilon(Sdir))
    #3 may have been intentional as it makes no difference for calculations...