Changes from branches/petra/src/advance.f90 at r36 to trunk/src/advance.f90 at r29
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/src/advance.f90
r36 r29 1 1 !********************************************************************** 2 ! Copyright 1998 -2015*2 ! Copyright 1998,1999,2000,2001,2002,2005,2007,2008,2009,2010 * 3 3 ! Andreas Stohl, Petra Seibert, A. Frank, Gerhard Wotawa, * 4 4 ! Caroline Forster, Sabine Eckhardt, John Burkhart, Harald Sodemann * … … 61 61 ! 8 April 2000: Deep convection parameterization * 62 62 ! * 63 ! May 2002: Petterssen scheme introduced 64 ! PS, 2/2015: fix mixture of real and dp in call to funtion mod 63 ! May 2002: Petterssen scheme introduced * 65 64 ! * 66 65 !***************************************************************************** … … 708 707 709 708 if ( yt.lt.0. ) then 710 xt=mod(xt+180. _dp,360._dp)709 xt=mod(xt+180.,360.) 711 710 yt=-yt 712 711 else if ( yt.gt.real(nymin1) ) then 713 xt=mod(xt+180. _dp,360._dp)712 xt=mod(xt+180.,360.) 714 713 yt=2*real(nymin1)-yt 715 714 endif … … 878 877 879 878 if ( yt.lt.0. ) then 880 xt=mod(xt+180. _dp,360._dp)879 xt=mod(xt+180.,360.) 881 880 yt=-yt 882 881 else if ( yt.gt.real(nymin1) ) then 883 xt=mod(xt+180. _dp,360._dp)882 xt=mod(xt+180.,360.) 884 883 yt=2*real(nymin1)-yt 885 884 endif
Note: See TracChangeset
for help on using the changeset viewer.