/[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 121 by guez, Wed Jan 28 16:10:02 2015 UTC revision 122 by guez, Tue Feb 3 19:30:48 2015 UTC
# Line 114  contains Line 114  contains
114      print *, "beta = ", beta      print *, "beta = ", beta
115    
116      IF (2. * beta - grossismx <= 0.) THEN      IF (2. * beta - grossismx <= 0.) THEN
117         print *, 'Attention ! La valeur beta calculée dans fxhyp est mauvaise.'         print *, 'Bad choice of grossismx, taux, dzoomx.'
118         print *, 'Modifier les valeurs de grossismx, taux ou dzoomx et relancer.'         print *, 'Decrease dzoomx or grossismx.'
119         STOP 1         STOP 1
120      END IF      END IF
121    
# Line 165  contains Line 165  contains
165      print *      print *
166    
167      forall (i = 1: iim) xlon(i) = rlonv(i + 1) - rlonv(i)      forall (i = 1: iim) xlon(i) = rlonv(i + 1) - rlonv(i)
168      print *, "Minimum longitude step:", MINval(xlon) * 180. / pi_d, "°"      print *, "Minimum longitude step:", MINval(xlon) * 180. / pi_d, "degrees"
169      print *, "Maximum longitude step:", MAXval(xlon) * 180. / pi_d, "°"      print *, "Maximum longitude step:", MAXval(xlon) * 180. / pi_d, "degrees"
170    
171      DO i = 1, iim + 1      DO i = 1, iim + 1
172         IF (rlonp025(i) < rlonv(i)) THEN         IF (rlonp025(i) < rlonv(i)) THEN
Legend:
Removed from v.121  
changed lines
  Added in v.122
  ViewVC Help
Powered by ViewVC 1.1.21