[Dart-dev] DART/branches Revision: 11981

[dart at ucar.edu]

nancy at ucar.edu
2017-10-13 13:57:50 -0600 (Fri, 13 Oct 2017)
101
replace a call to dble() with appending _r8 so this
works for both intel and the gfortran compiler.




Modified: DART/branches/rma_trunk/models/9var/model_mod.f90
===================================================================
--- DART/branches/rma_trunk/models/9var/model_mod.f90	2017-10-13 15:57:41 UTC (rev 11980)
+++ DART/branches/rma_trunk/models/9var/model_mod.f90	2017-10-13 19:57:50 UTC (rev 11981)
@@ -205,7 +205,7 @@
 
 ! ADDITION OF SOME NOISE AT 1/10 the amplitude of DT
 if (add_noise) then
-   call several_random_gaussians(ran_seq, dble(0.0), dxxx(i) / 10.0, 9, rnum)
+   call several_random_gaussians(ran_seq, 0.0_r8, dxxx(i) / 10.0_r8, 9, rnum)
    do i = 1, 9
       dxxx(i) = dxxx(i) + rnum(i)
    end do