Changeset 1939


Ignore:
Timestamp:
Jan 21, 2014, 3:23:17 PM (10 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
Files:
6 edited

Legend:

Unmodified
Added
Removed

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

    r1930 r1939  
    307307
    308308
    309 
    310309       IF(ik.EQ.1.and.grossism.EQ.1.)  THEN
    311310         xvrai(1)    = xvrai(iip1)-depi

  • 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

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

    r1907 r1939  
    138138     &                  //trim(fichnom)
    139139         write(lunout,*)' ierr = ', ierr
    140          CALL ABORT
     140         CALL ABORT_GCM("DYNREDEM0", "", 1)
    141141      ENDIF
    142142c
    … …  
    588588      IF (ierr .NE. NF_NOERR) THEN
    589589         write(lunout,*)"dynredem1: Pb. d ouverture "//trim(fichnom)
    590          CALL abort
     590         CALL abort_gcm("dynredem1", "", 1)
    591591      ENDIF
    592592

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

    r1907 r1939  
    4848c
    4949       REAL   dzoom
    50        REAL*8 xlon(iip1),xprimm(iip1),xuv
    51        REAL*8 xtild(0:nmax2)
    52        REAL*8 fhyp(0:nmax2),ffdx,beta,Xprimt(0:nmax2)
    53        REAL*8 Xf(0:nmax2),xxpr(0:nmax2)
    54        REAL*8 xvrai(iip1),xxprim(iip1)
    55        REAL*8 pi,depi,epsilon,xzoom,fa,fb
    56        REAL*8 Xf1, Xfi , a0,a1,a2,a3,xi2
     50       REAL(KIND=8) xlon(iip1),xprimm(iip1),xuv
     51       REAL(KIND=8) xtild(0:nmax2)
     52       REAL(KIND=8) fhyp(0:nmax2),ffdx,beta,Xprimt(0:nmax2)
     53       REAL(KIND=8) Xf(0:nmax2),xxpr(0:nmax2)
     54       REAL(KIND=8) xvrai(iip1),xxprim(iip1)
     55       REAL(KIND=8) pi,depi,epsilon,xzoom,fa,fb
     56       REAL(KIND=8) Xf1, Xfi , a0,a1,a2,a3,xi2
    5757       INTEGER i,it,ik,iter,ii,idif,ii1,ii2
    58        REAL*8 xi,xo1,xmoy,xlon2,fxm,Xprimin
    59        REAL*8 champmin,champmax,decalx
     58       REAL(KIND=8) xi,xo1,xmoy,xlon2,fxm,Xprimin
     59       REAL(KIND=8) champmin,champmax,decalx
    6060       INTEGER is2
    6161       SAVE is2
    6262
    63        REAL*8 heavyside
     63       REAL(KIND=8) heavyside
    6464
    6565       pi       = 2. * ASIN(1.)
    … …  
    157157        WRITE(6,*)'Modifier les valeurs de  grossismx ,tau ou dzoomx ',
    158158     , ' et relancer ! ***  '
    159         CALL ABORT
     159        CALL ABORT_GCM("FXHYP", "", 1)
    160160       ENDIF
    161161c
    … …  
    290290         xxprim(1)   = xxprim(iip1)
    291291       ENDIF
     292
    292293       DO i = 1 , iim
    293294        xlon(i)     = xvrai(i)

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