Ignore:
Timestamp:
Jan 17, 2014, 5:45:09 PM (11 years ago)
Author:
lguez
Message:

abort, dfloat and pause are not in the Fortran standard. Replaced
abort by abort_gcm and dfloat by dble. Note: I modified dyn3dpar files
that were identical to dyn3d modified files.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/dyn3d/defrun.F

    r1907 r1930  
    364364        WRITE(tapeout,*)' La valeur de dzoomx passee par run.def est dif
    365365     *ferente de celle lue sur le fichier  start '
    366         CALL ABORT
     366        CALL ABORT_gcm("defrun", "", 1)
    367367       ENDIF
    368368
    … …  
    370370        WRITE(tapeout,*)' La valeur de dzoomy passee par run.def est dif
    371371     *ferente de celle lue sur le fichier  start '
    372         CALL ABORT
     372        CALL ABORT_gcm("defrun", "", 1)
    373373       ENDIF
    374374
    … …  
    376376        WRITE(6,*)' La valeur de taux passee par run.def est differente
    377377     *  de celle lue sur le fichier  start '
    378         CALL ABORT
     378        CALL ABORT_gcm("defrun", "", 1)
    379379       ENDIF
    380380
    … …  
    382382        WRITE(6,*)' La valeur de tauy passee par run.def est differente
    383383     *  de celle lue sur le fichier  start '
    384         CALL ABORT
     384        CALL ABORT_gcm("defrun", "", 1)
    385385       ENDIF
    386386
Note: See TracChangeset for help on using the changeset viewer.