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

Diff of /trunk/dyn3d/comgeom.f

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

revision 124 by guez, Wed Jan 28 16:10:02 2015 UTC revision 125 by guez, Fri Feb 6 15:00:28 2015 UTC
# Line 190  contains Line 190  contains
190    
191      PRINT *, 'Call sequence information: inigeom'      PRINT *, 'Call sequence information: inigeom'
192    
193      IF (nitergdiv/=2) THEN      IF (nitergdiv /= 2) THEN
194         gamdi_gdiv = coefdis / (real(nitergdiv)-2.)         gamdi_gdiv = coefdis / (nitergdiv - 2)
195      ELSE      ELSE
196         gamdi_gdiv = 0.         gamdi_gdiv = 0.
197      END IF      END IF
198    
199      IF (nitergrot/=2) THEN      IF (nitergrot /= 2) THEN
200         gamdi_grot = coefdis / (real(nitergrot)-2.)         gamdi_grot = coefdis / (nitergrot - 2)
201      ELSE      ELSE
202         gamdi_grot = 0.         gamdi_grot = 0.
203      END IF      END IF
204    
205      IF (niterh/=2) THEN      IF (niterh /= 2) THEN
206         gamdi_h = coefdis / (real(niterh)-2.)         gamdi_h = coefdis / (niterh - 2)
207      ELSE      ELSE
208         gamdi_h = 0.         gamdi_h = 0.
209      END IF      END IF
Legend:
Removed from v.124  
changed lines
  Added in v.125
  ViewVC Help
Powered by ViewVC 1.1.21