Changeset 251 for LMDZ.3.3/trunk/libf/dyn3d/fyhyp.F

Timestamp:

Jul 4, 2001, 12:46:06 PM (23 years ago)

Author:

lmdz

Message:

Initialisations pour eviter des divisions par 0
LF

File:

• LMDZ.3.3/trunk/libf/dyn3d/fyhyp.F (modified) (2 diffs)

LMDZ.3.3/trunk/libf/dyn3d/fyhyp.F

@@ -1 @@
-c
+C
 c $Header$
 c
@@ -100 +100 @@
        y0max    = 2.*y0*heavyy0  + pis2
 
+       fa = 999.999
+       fb = 999.999
+
        DO i = 0, nmax2 
         IF( yt(i).LT.y0 )  THEN