/[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 120 by guez, Tue Jan 13 14:56:15 2015 UTC revision 121 by guez, Wed Jan 28 16:10:02 2015 UTC
# Line 13  contains Line 13  contains
13      ! Calcule les latitudes et dérivées dans la grille du GCM pour une      ! Calcule les latitudes et dérivées dans la grille du GCM pour une
14      ! fonction f(y) à dérivée tangente hyperbolique.      ! fonction f(y) à dérivée tangente hyperbolique.
15    
16      ! Nota bene : il vaut mieux avoir grossismy * dzoomy < pi / 2 (radians).      ! Il vaut mieux avoir : grossismy * dzoom < pi / 2
17    
18      use coefpoly_m, only: coefpoly      use coefpoly_m, only: coefpoly
19      USE dimens_m, only: jjm      USE dimens_m, only: jjm
# Line 61  contains Line 61  contains
61      pisjm = pi/real(jjm)      pisjm = pi/real(jjm)
62      epsilon = 1e-3      epsilon = 1e-3
63      y0 = clat*pi/180.      y0 = clat*pi/180.
64        dzoom = dzoomy*pi
     IF (dzoomy<1.) THEN  
        dzoom = dzoomy*pi  
     ELSE IF (dzoomy<12.) THEN  
        print *, "Le paramètre dzoomy pour fyhyp est trop petit. L'augmenter " &  
             // "et relancer."  
        STOP 1  
     ELSE  
        dzoom = dzoomy * pi/180.  
     END IF  
   
65      print *, 'yzoom(rad), grossismy, tauy, dzoom (rad):'      print *, 'yzoom(rad), grossismy, tauy, dzoom (rad):'
66      print *, y0, grossismy, tauy, dzoom      print *, y0, grossismy, tauy, dzoom
67    
Legend:
Removed from v.120  
changed lines
  Added in v.121
  ViewVC Help
Powered by ViewVC 1.1.21