Ignore:
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).

Location:
LMDZ5/trunk/libf/dyn3dpar
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/dyn3dpar/fxhyp.F

    r1907 r1939  
    6969c
    7070       if (iim==1) then
    71 
    72           print*,'Longitudes calculees a la main pour iim=1'
    7371
    7472          rlonm025(1)=-pi/2.
     
    180178        WRITE(6,*)'Modifier les valeurs de  grossismx ,tau ou dzoomx ',
    181179     , ' et relancer ! ***  '
    182         CALL ABORT
     180        CALL ABORT_GCM("FXHYP", "", 1)
    183181       ENDIF
    184182c
     
    307305
    3083061500   CONTINUE
    309 
    310307
    311308
  • LMDZ5/trunk/libf/dyn3dpar/gcm.F

    r1907 r1939  
    332332          start_time = starttime
    333333        ELSE
    334           WRITE(lunout,*)'Je m''arrete'
    335           CALL abort
     334          call abort_gcm("gcm", "'Je m''arrete'", 1)
    336335        ENDIF
    337336      ENDIF
Note: See TracChangeset for help on using the changeset viewer.