Changeset 1939 for LMDZ5/trunk/libf/dyn3d

Timestamp:

Jan 21, 2014, 3:23:17 PM (11 years ago)

Author:

lguez

Message:

Same as revision 1930: replaced abort by abort_gcm.

Also replaced real*8 by real(kind=8) (was done way back in revision 1220 for
dyn3d/fxhyp.F but not dyn3dpar/fxhyp.F).

File:

• LMDZ5/trunk/libf/dyn3d/fxhyp.F (modified) (1 diff)

LMDZ5/trunk/libf/dyn3d/fxhyp.F

@@ -307 +307 @@
 
 
-
        IF(ik.EQ.1.and.grossism.EQ.1.)  THEN
          xvrai(1)    = xvrai(iip1)-depi