Changeset 31674b5 in flexpart.git for src/advance.f90
- Timestamp:
- Jul 15, 2015, 9:45:11 AM (9 years ago)
- Branches:
- svn-petra
- Children:
- 3c1da52
- Parents:
- 480164e
- git-author:
- Ignacio Pisso <Ignacio.Pisso@…> (07/15/15 09:19:44)
- git-committer:
- Ignacio Pisso <Ignacio.Pisso@…> (07/15/15 09:45:11)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/advance.f90
r0317b57 r31674b5 1 1 !********************************************************************** 2 ! Copyright 1998 ,1999,2000,2001,2002,2005,2007,2008,2009,2010*2 ! Copyright 1998-2015 * 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 * 63 ! May 2002: Petterssen scheme introduced 64 ! PS, 2/2015: fix mixture of real and dp in call to funtion mod 64 65 ! * 65 66 !***************************************************************************** … … 707 708 708 709 if ( yt.lt.0. ) then 709 xt=mod(xt+180. ,360.)710 xt=mod(xt+180._dp,360._dp) 710 711 yt=-yt 711 712 else if ( yt.gt.real(nymin1) ) then 712 xt=mod(xt+180. ,360.)713 xt=mod(xt+180._dp,360._dp) 713 714 yt=2*real(nymin1)-yt 714 715 endif … … 877 878 878 879 if ( yt.lt.0. ) then 879 xt=mod(xt+180. ,360.)880 xt=mod(xt+180._dp,360._dp) 880 881 yt=-yt 881 882 else if ( yt.gt.real(nymin1) ) then 882 xt=mod(xt+180. ,360.)883 xt=mod(xt+180._dp,360._dp) 883 884 yt=2*real(nymin1)-yt 884 885 endif
Note: See TracChangeset
for help on using the changeset viewer.