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

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/dyn3dmem/dynetat0_loc.F

    r1908 r1939  
    6868     &  'dynetat0_loc: Pb d''ouverture du fichier start.nc'
    6969        write(lunout,*)' ierr = ', ierr
    70         CALL ABORT
     70        CALL ABORT_GCM("DYNETAT0", "", 1)
    7171      ENDIF
    7272
    … …  
    7575      IF (ierr .NE. NF_NOERR) THEN
    7676         write(lunout,*)"dynetat0_loc: Le champ <controle> est absent"
    77          CALL abort
     77         CALL abort_gcm("dynetat0", "", 1)
    7878      ENDIF
    7979#ifdef NC_DOUBLE
    … …  
    8484      IF (ierr .NE. NF_NOERR) THEN
    8585         write(lunout,*)"dynetat0_loc: Lecture echoue pour <controle>"
    86          CALL abort
     86         CALL abort_gcm("dynetat0", "", 1)
    8787      ENDIF
    8888
    … …  
    158158      IF (ierr .NE. NF_NOERR) THEN
    159159         write(lunout,*)"dynetat0_loc: Le champ <rlonu> est absent"
    160          CALL abort
     160         CALL abort_gcm("dynetat0", "", 1)
    161161      ENDIF
    162162#ifdef NC_DOUBLE
    … …  
    167167      IF (ierr .NE. NF_NOERR) THEN
    168168         write(lunout,*)"dynetat0_loc: Lecture echouee pour <rlonu>"
    169          CALL abort
     169         CALL abort_gcm("dynetat0", "", 1)
    170170      ENDIF
    171171
    … …  
    173173      IF (ierr .NE. NF_NOERR) THEN
    174174         write(lunout,*)"dynetat0_loc: Le champ <rlatu> est absent"
    175          CALL abort
     175         CALL abort_gcm("dynetat0", "", 1)
    176176      ENDIF
    177177#ifdef NC_DOUBLE
    … …  
    182182      IF (ierr .NE. NF_NOERR) THEN
    183183         write(lunout,*)"dynetat0_loc: Lecture echouee pour <rlatu>"
    184          CALL abort
     184         CALL abort_gcm("dynetat0", "", 1)
    185185      ENDIF
    186186
    … …  
    188188      IF (ierr .NE. NF_NOERR) THEN
    189189         write(lunout,*)"dynetat0_loc: Le champ <rlonv> est absent"
    190          CALL abort
     190         CALL abort_gcm("dynetat0", "", 1)
    191191      ENDIF
    192192#ifdef NC_DOUBLE
    … …  
    197197      IF (ierr .NE. NF_NOERR) THEN
    198198         write(lunout,*)"dynetat0_loc: Lecture echouee pour <rlonv>"
    199          CALL abort
     199         CALL abort_gcm("dynetat0", "", 1)
    200200      ENDIF
    201201
    … …  
    203203      IF (ierr .NE. NF_NOERR) THEN
    204204         write(lunout,*)"dynetat0_loc: Le champ <rlatv> est absent"
    205          CALL abort
     205         CALL abort_gcm("dynetat0", "", 1)
    206206      ENDIF
    207207#ifdef NC_DOUBLE
    … …  
    212212      IF (ierr .NE. NF_NOERR) THEN
    213213         write(lunout,*)"dynetat0_loc: Lecture echouee pour rlatv"
    214          CALL abort
     214         CALL abort_gcm("dynetat0", "", 1)
    215215      ENDIF
    216216
    … …  
    218218      IF (ierr .NE. NF_NOERR) THEN
    219219         write(lunout,*)"dynetat0_loc: Le champ <cu> est absent"
    220          CALL abort
     220         CALL abort_gcm("dynetat0", "", 1)
    221221      ENDIF
    222222#ifdef NC_DOUBLE
    … …  
    227227      IF (ierr .NE. NF_NOERR) THEN
    228228         write(lunout,*)"dynetat0_loc: Lecture echouee pour <cu>"
    229          CALL abort
     229         CALL abort_gcm("dynetat0", "", 1)
    230230      ENDIF
    231231
    … …  
    233233      IF (ierr .NE. NF_NOERR) THEN
    234234         write(lunout,*)"dynetat0_loc: Le champ <cv> est absent"
    235          CALL abort
     235         CALL abort_gcm("dynetat0", "", 1)
    236236      ENDIF
    237237#ifdef NC_DOUBLE
    … …  
    242242      IF (ierr .NE. NF_NOERR) THEN
    243243         write(lunout,*)"dynetat0_loc: Lecture echouee pour <cv>"
    244          CALL abort
     244         CALL abort_gcm("dynetat0", "", 1)
    245245      ENDIF
    246246
    … …  
    248248      IF (ierr .NE. NF_NOERR) THEN
    249249         write(lunout,*)"dynetat0_loc: Le champ <aire> est absent"
    250          CALL abort
     250         CALL abort_gcm("dynetat0", "", 1)
    251251      ENDIF
    252252#ifdef NC_DOUBLE
    … …  
    257257      IF (ierr .NE. NF_NOERR) THEN
    258258         write(lunout,*)"dynetat0_loc: Lecture echouee pour <aire>"
    259          CALL abort
     259         CALL abort_gcm("dynetat0", "", 1)
    260260      ENDIF
    261261     
    … …  
    265265      IF (ierr .NE. NF_NOERR) THEN
    266266         write(lunout,*)"dynetat0_loc: Le champ <phisinit> est absent"
    267          CALL abort
     267         CALL abort_gcm("dynetat0", "", 1)
    268268      ENDIF
    269269#ifdef NC_DOUBLE
    … …  
    274274      IF (ierr .NE. NF_NOERR) THEN
    275275         write(lunout,*)"dynetat0_loc: Lecture echouee pour <phisinit>"
    276          CALL abort
     276         CALL abort_gcm("dynetat0", "", 1)
    277277      ENDIF
    278278      phis(ijb_u:ije_u)=phis_glo(ijb_u:ije_u)
    … …  
    286286         IF (ierr .NE. NF_NOERR) THEN
    287287            write(lunout,*)"dynetat0: Le champ <Time> est absent"
    288             CALL abort
     288            CALL abort_gcm("dynetat0", "", 1)
    289289         ENDIF
    290290      ENDIF
    … …  
    296296      IF (ierr .NE. NF_NOERR) THEN
    297297         write(lunout,*)"dynetat0_loc: Lecture echouee <temps>"
    298          CALL abort
     298         CALL abort_gcm("dynetat0", "", 1)
    299299      ENDIF
    300300
    … …  
    302302      IF (ierr .NE. NF_NOERR) THEN
    303303         write(lunout,*)"dynetat0_loc: Le champ <ucov> est absent"
    304          CALL abort
     304         CALL abort_gcm("dynetat0", "", 1)
    305305      ENDIF
    306306     
    … …  
    314314      IF (ierr .NE. NF_NOERR) THEN
    315315         write(lunout,*)"dynetat0_loc: Lecture echouee pour <ucov>"
    316          CALL abort
     316         CALL abort_gcm("dynetat0", "", 1)
    317317      ENDIF
    318318
    … …  
    324324      IF (ierr .NE. NF_NOERR) THEN
    325325         write(lunout,*)"dynetat0_loc: Le champ <vcov> est absent"
    326          CALL abort
     326         CALL abort_gcm("dynetat0", "", 1)
    327327      ENDIF
    328328#ifdef NC_DOUBLE
    … …  
    333333      IF (ierr .NE. NF_NOERR) THEN
    334334         write(lunout,*)"dynetat0_loc: Lecture echouee pour <vcov>"
    335          CALL abort
     335         CALL abort_gcm("dynetat0", "", 1)
    336336      ENDIF
    337337      vcov(ijb_v:ije_v,:)=vcov_glo(ijb_v:ije_v,:)
    … …  
    342342      IF (ierr .NE. NF_NOERR) THEN
    343343         write(lunout,*)"dynetat0_loc: Le champ <teta> est absent"
    344          CALL abort
     344         CALL abort_gcm("dynetat0", "", 1)
    345345      ENDIF
    346346#ifdef NC_DOUBLE
    … …  
    351351      IF (ierr .NE. NF_NOERR) THEN
    352352         write(lunout,*)"dynetat0_loc: Lecture echouee pour <teta>"
    353          CALL abort
     353         CALL abort_gcm("dynetat0", "", 1)
    354354      ENDIF
    355355
    … …  
    375375            write(lunout,*)
    376376     &      "dynetat0_loc: Lecture echouee pour "//tname(iq)
    377             CALL abort
     377            CALL abort_gcm("dynetat0", "", 1)
    378378          ENDIF
    379379        q(ijb_u:ije_u,:,iq)=q_glo(ijb_u:ije_u,:)
    … …  
    388388      IF (ierr .NE. NF_NOERR) THEN
    389389         write(lunout,*)"dynetat0_loc: Le champ <masse> est absent"
    390          CALL abort
     390         CALL abort_gcm("dynetat0", "", 1)
    391391      ENDIF
    392392#ifdef NC_DOUBLE
    … …  
    397397      IF (ierr .NE. NF_NOERR) THEN
    398398         write(lunout,*)"dynetat0_loc: Lecture echouee pour <masse>"
    399          CALL abort
     399         CALL abort_gcm("dynetat0", "", 1)
    400400      ENDIF
    401401      masse(ijb_u:ije_u,:)=masse_glo(ijb_u:ije_u,:)
    … …  
    406406      IF (ierr .NE. NF_NOERR) THEN
    407407         write(lunout,*)"dynetat0_loc: Le champ <ps> est absent"
    408          CALL abort
     408         CALL abort_gcm("dynetat0", "", 1)
    409409      ENDIF
    410410#ifdef NC_DOUBLE
    … …  
    415415      IF (ierr .NE. NF_NOERR) THEN
    416416         write(lunout,*)"dynetat0_loc: Lecture echouee pour <ps>"
    417          CALL abort
     417         CALL abort_gcm("dynetat0", "", 1)
    418418      ENDIF
    419419
Note: See TracChangeset for help on using the changeset viewer.