Changes from branches/petra/src/advance.f90 at r36 to trunk/src/advance.f90 at r29

File:

• trunk/src/advance.f90 (modified) (4 diffs)

trunk/src/advance.f90

@@ -1 +1 @@
 !**********************************************************************
-! Copyright 1998-2015                                                 *
+! Copyright 1998,1999,2000,2001,2002,2005,2007,2008,2009,2010         *
 ! Andreas Stohl, Petra Seibert, A. Frank, Gerhard Wotawa,             *
 ! Caroline Forster, Sabine Eckhardt, John Burkhart, Harald Sodemann   *
@@ -61 +61 @@
   !  8 April 2000: Deep convection parameterization                            *
   !                                                                            *
-  !  May 2002: Petterssen scheme introduced  
-  !  PS, 2/2015: fix mixture of real and dp in call to funtion mod
+  !  May 2002: Petterssen scheme introduced                                    *
   !                                                                            *
   !*****************************************************************************
@@ -708 +707 @@
 
   if ( yt.lt.0. ) then
-    xt=mod(xt+180._dp,360._dp)
+    xt=mod(xt+180.,360.)
     yt=-yt
   else if ( yt.gt.real(nymin1) ) then
-    xt=mod(xt+180._dp,360._dp)
+    xt=mod(xt+180.,360.)
     yt=2*real(nymin1)-yt
   endif
@@ -878 +877 @@
 
   if ( yt.lt.0. ) then
-    xt=mod(xt+180._dp,360._dp)
+    xt=mod(xt+180.,360.)
     yt=-yt
   else if ( yt.gt.real(nymin1) ) then
-    xt=mod(xt+180._dp,360._dp)
+    xt=mod(xt+180.,360.)
     yt=2*real(nymin1)-yt
   endif