/[lmdze]/trunk/dyn3d/fxhyp.f
ViewVC logotype

Diff of /trunk/dyn3d/fxhyp.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 127 by guez, Tue Feb 10 17:58:56 2015 UTC revision 128 by guez, Thu Feb 12 16:23:33 2015 UTC
# Line 205  contains Line 205  contains
205      print *, "Minimum longitude step:", MINval(d_rlonv) * 180. / pi, "degrees"      print *, "Minimum longitude step:", MINval(d_rlonv) * 180. / pi, "degrees"
206      print *, "Maximum longitude step:", MAXval(d_rlonv) * 180. / pi, "degrees"      print *, "Maximum longitude step:", MAXval(d_rlonv) * 180. / pi, "degrees"
207    
208        ! Check that rlonm025 <= rlonv <= rlonp025 <= rlonu:
209      DO i = 1, iim + 1      DO i = 1, iim + 1
210         IF (rlonp025(i) < rlonv(i)) THEN         IF (rlonp025(i) < rlonv(i)) THEN
211            print *, 'rlonp025(', i, ') = ', rlonp025(i)            print *, 'rlonp025(', i, ') = ', rlonp025(i)
Legend:
Removed from v.127  
changed lines
  Added in v.128
  ViewVC Help
Powered by ViewVC 1.1.21