Ignore:
File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/petra/src/advance.f90

    r29 r36  
    11!**********************************************************************
    2 ! Copyright 1998,1999,2000,2001,2002,2005,2007,2008,2009,2010         *
     2! Copyright 1998-2015                                                 *
    33! Andreas Stohl, Petra Seibert, A. Frank, Gerhard Wotawa,             *
    44! Caroline Forster, Sabine Eckhardt, John Burkhart, Harald Sodemann   *
     
    6161  !  8 April 2000: Deep convection parameterization                            *
    6262  !                                                                            *
    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
    6465  !                                                                            *
    6566  !*****************************************************************************
     
    707708
    708709  if ( yt.lt.0. ) then
    709     xt=mod(xt+180.,360.)
     710    xt=mod(xt+180._dp,360._dp)
    710711    yt=-yt
    711712  else if ( yt.gt.real(nymin1) ) then
    712     xt=mod(xt+180.,360.)
     713    xt=mod(xt+180._dp,360._dp)
    713714    yt=2*real(nymin1)-yt
    714715  endif
     
    877878
    878879  if ( yt.lt.0. ) then
    879     xt=mod(xt+180.,360.)
     880    xt=mod(xt+180._dp,360._dp)
    880881    yt=-yt
    881882  else if ( yt.gt.real(nymin1) ) then
    882     xt=mod(xt+180.,360.)
     883    xt=mod(xt+180._dp,360._dp)
    883884    yt=2*real(nymin1)-yt
    884885  endif
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG