Changeset 1999 for LMDZ5/branches/testing/libf/dyn3dpar/fxhyp.F

Timestamp:

Mar 20, 2014, 10:57:19 AM (11 years ago)

Author:

Laurent Fairhead

Message:

Merged trunk changes r1920:1997 into testing branch

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/dyn3dpar/fxhyp.F (modified) (3 diffs)

LMDZ5/branches/testing/libf/dyn3dpar/fxhyp.F

@@ -69 +69 @@
 c
        if (iim==1) then
-
-          print*,'Longitudes calculees a la main pour iim=1'
 
           rlonm025(1)=-pi/2.
@@ -180 +178 @@
         WRITE(6,*)'Modifier les valeurs de  grossismx ,tau ou dzoomx ',
      , ' et relancer ! ***  '
-        CALL ABORT
+        CALL ABORT_GCM("FXHYP", "", 1)
        ENDIF
 c
@@ -307 +305 @@
 
 1500   CONTINUE
-