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 |
|
|
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 |