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

Diff of /trunk/dyn3d/fyhyp.f

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

revision 97 by guez, Fri Apr 25 14:58:31 2014 UTC revision 112 by guez, Thu Sep 18 13:36:51 2014 UTC
# Line 1  Line 1 
1  module fyhyp_m  module fyhyp_m
2    
3   IMPLICIT NONE    IMPLICIT NONE
4    
5  contains  contains
6    
# Line 79  contains Line 79  contains
79              // "et relancer."              // "et relancer."
80         STOP 1         STOP 1
81      ELSE      ELSE
82         dzoom = dzooma*pi/180.         dzoom = dzooma * pi/180.
83      END IF      END IF
84    
85      print *, 'yzoom(rad), grossism, tau, dzoom (rad):'      print *, 'yzoom(rad), grossism, tau, dzoom (rad):'
Legend:
Removed from v.97  
changed lines
  Added in v.112
  ViewVC Help
Powered by ViewVC 1.1.21