/[lmdze]/trunk/Sources/dyn3d/fyhyp.f
ViewVC logotype

Diff of /trunk/Sources/dyn3d/fyhyp.f

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

revision 119 by guez, Wed Jan 7 14:34:57 2015 UTC revision 120 by guez, Tue Jan 13 14:56:15 2015 UTC
# Line 15  contains Line 15  contains
15    
16      ! Nota bene : il vaut mieux avoir grossismy * dzoomy < pi / 2 (radians).      ! Nota bene : il vaut mieux avoir grossismy * dzoomy < pi / 2 (radians).
17    
18        use coefpoly_m, only: coefpoly
19      USE dimens_m, only: jjm      USE dimens_m, only: jjm
20      use serre, only: clat, grossismy, dzoomy, tauy      use serre, only: clat, grossismy, dzoomy, tauy
21    
# Line 53  contains Line 54  contains
54    
55      !-------------------------------------------------------------------      !-------------------------------------------------------------------
56    
57        print *, "Call sequence information: fyhyp"
58    
59      pi = 2.*asin(1.)      pi = 2.*asin(1.)
60      pis2 = pi/2.      pis2 = pi/2.
61      pisjm = pi/real(jjm)      pisjm = pi/real(jjm)
# Line 333  contains Line 336  contains
336    
337      print *, 'Latitudes'      print *, 'Latitudes'
338      print 3, champmin, champmax      print 3, champmin, champmax
     print *, 'Si cette derniere est trop lache, modifiez les parametres'  
     print *, 'grossismy, tauy, dzoom pour Y et repasser ! '  
339    
340  3   Format(1x, ' Au centre du zoom, la longueur de la maille est', &  3   Format(1x, ' Au centre du zoom, la longueur de la maille est', &
341           ' d environ ', f0.2, ' degres ', /, &           ' d environ ', f0.2, ' degres ', /, &
342           ' alors que la maille en dehors de la zone du zoom est ', &           ' alors que la maille en dehors de la zone du zoom est ', &
343           "d'environ", f0.2, ' degres ')           "d'environ ", f0.2, ' degres ')
344    
345    END SUBROUTINE fyhyp    END SUBROUTINE fyhyp
346    
Legend:
Removed from v.119  
changed lines
  Added in v.120
  ViewVC Help
Powered by ViewVC 1.1.21