--- trunk/dyn3d/fyhyp.f 2015/01/07 14:34:57 119 +++ trunk/dyn3d/fyhyp.f 2015/01/13 14:56:15 120 @@ -15,6 +15,7 @@ ! Nota bene : il vaut mieux avoir grossismy * dzoomy < pi / 2 (radians). + use coefpoly_m, only: coefpoly USE dimens_m, only: jjm use serre, only: clat, grossismy, dzoomy, tauy @@ -53,6 +54,8 @@ !------------------------------------------------------------------- + print *, "Call sequence information: fyhyp" + pi = 2.*asin(1.) pis2 = pi/2. pisjm = pi/real(jjm) @@ -333,13 +336,11 @@ print *, 'Latitudes' print 3, champmin, champmax - print *, 'Si cette derniere est trop lache, modifiez les parametres' - print *, 'grossismy, tauy, dzoom pour Y et repasser ! ' 3 Format(1x, ' Au centre du zoom, la longueur de la maille est', & ' d environ ', f0.2, ' degres ', /, & ' alors que la maille en dehors de la zone du zoom est ', & - "d'environ", f0.2, ' degres ') + "d'environ ", f0.2, ' degres ') END SUBROUTINE fyhyp