Changeset 1931


Ignore:
Timestamp:
Jan 17, 2014, 6:49:48 PM (11 years ago)
Author:
lguez
Message:

abort and exit are not in the Fortran standard. Replaced them by abort_gcm.

Location:
LMDZ5/trunk/libf/phylmd
Files:
7 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/condsurf.F

    r1907 r1931  
    5555      IF (jour.LT.0 .OR. jour.GT.(360-1)) THEN
    5656         PRINT*,'Le jour demande n est pas correct: ', jour
    57          CALL ABORT
     57         CALL ABORT_gcm("condsurf", "", 1)
    5858      ENDIF
    5959c
    … …  
    7575         PRINT *,' trouve pas sur les ',nannemax,' annees a partir de '
    7676         PRINT *,' l annee de debut', annee_ref
    77          CALL EXIT(1)
     77         CALL abort_gcm("condsurf", "", 1)
    7878c
    7979100     CONTINUE
    … …  
    9595        WRITE(6,*)'       l an 2000 )  ,  n existe  pas !  '
    9696        WRITE(6,*)' ierr = ', ierr
    97         CALL EXIT(1)
     97        CALL abort_gcm("condsurf", "", 1)
    9898      ENDIF
    9999c     DO k = 1, jour
    … …  
    108108      ierr = NF_INQ_VARID (nid, "BILS", nvarid)
    109109      IF (ierr .NE. NF_NOERR) THEN
    110          PRINT*, "condsurf: Le champ <BILS> est absent"
    111          CALL abort
     110         CALL abort_gcm("cond_surf", "Le champ <BILS> est absent", 1)
    112111      ENDIF
    113112      PRINT*,'debut,epais',debut,epais,'jour,jourvrai',jour,jourvrai
    … …  
    118117#endif
    119118      IF (ierr .NE. NF_NOERR) THEN
    120          PRINT*, "condsurf: Lecture echouee pour <BILS>"
    121          CALL abort
     119         CALL abort_gcm("condsurf", "Lecture echouee pour <BILS>", 1)
    122120      ENDIF
    123121c     ENDDO !k = 1, jour

  • LMDZ5/trunk/libf/phylmd/iostart.F90

    r1907 r1931  
    4141        write(6,*)' Pb d''ouverture du fichier '//filename
    4242        write(6,*)' ierr = ', ierr
    43         CALL ABORT
     43        CALL ABORT_GCM("", "", 1)
    4444      ENDIF
    4545    ENDIF
    … …  
    166166      IF (.NOT. tmp_found) THEN
    167167        PRINT*, 'phyetat0: Le champ <'//field_name//'> est absent'
    168         CALL abort
     168        call abort_gcm("", "", 1)
    169169      ENDIF
    170170    ENDIF
    … …  
    186186              IF (ierr/=NF90_NOERR) THEN
    187187                 PRINT*, 'phyetat0: Lecture echouee aussi en 2D pour <'//field_name//'>'
    188                  CALL abort
     188                 call abort_gcm("", "", 1)
    189189              ELSE
    190190                 PRINT*, 'phyetat0: La variable <'//field_name//'> lu sur surface seulement'!, selon ancien format, le reste mis a zero'
    191191              END IF
    192192           ELSE
    193               CALL abort
     193              call abort_gcm("", "", 1)
    194194           ENDIF
    195195         ENDIF
    … …  
    282282        IF (ierr/=NF90_NOERR) THEN
    283283          PRINT*, 'phyetat0: Lecture echouee pour <'//var_name//'>'
    284           CALL abort
     284          call abort_gcm("", "", 1)
    285285        ENDIF
    286286        tmp_found=.TRUE.
    … …  
    302302      IF (.NOT. tmp_found) THEN
    303303        PRINT*, 'phyetat0: La variable champ <'//var_name//'> est absente'
    304         CALL abort
     304        call abort_gcm("", "", 1)
    305305      ENDIF
    306306    ENDIF
    … …  
    323323        write(6,*)' Pb d''ouverture du fichier '//filename
    324324        write(6,*)' ierr = ', ierr
    325         CALL ABORT
     325        CALL ABORT_GCM("", "", 1)
    326326      ENDIF
    327327
    … …  
    410410      ELSE
    411411        PRINT *, "erreur phyredem : probleme de dimension"
    412         CALL ABORT
     412        CALL ABORT_GCM("", "", 1)
    413413      ENDIF
    414414         
    … …  
    487487      IF (var_size/=length) THEN
    488488        PRINT *, "erreur phyredem : probleme de dimension"
    489         CALL abort
     489        call abort_gcm("", "", 1)
    490490      ENDIF
    491491     

  • LMDZ5/trunk/libf/phylmd/phyetat0.F90

    r1907 r1931  
    206206        IF (nsrf.GT.99) THEN
    207207           PRINT*, "Trop de sous-mailles"
    208            CALL abort
     208           call abort_gcm("phyetat0", "", 1)
    209209        ENDIF
    210210        WRITE(str2, '(i2.2)') nsrf
    … …  
    242242        IF (isoil.GT.99 .AND. nsrf.GT.99) THEN
    243243           PRINT*, "Trop de couches ou sous-mailles"
    244            CALL abort
     244           call abort_gcm("phyetat0", "", 1)
    245245        ENDIF
    246246        WRITE(str7, '(i2.2, "srf", i2.2)') isoil, nsrf
    … …  
    266266        IF (nsrf.GT.99) THEN
    267267           PRINT*, "Trop de sous-mailles"
    268            CALL abort
     268           call abort_gcm("phyetat0", "", 1)
    269269        ENDIF
    270270        WRITE(str2, '(i2.2)') nsrf
    … …  
    321321        IF (nsrf.GT.99) THEN
    322322           PRINT*, "Trop de sous-mailles"
    323            CALL abort
     323           call abort_gcm("phyetat0", "", 1)
    324324        ENDIF
    325325        WRITE(str2, '(i2.2)') nsrf
    … …  
    359359        IF (nsrf.GT.99) THEN
    360360           PRINT*, "Trop de sous-mailles"
    361            CALL abort
     361           call abort_gcm("phyetat0", "", 1)
    362362        ENDIF
    363363        WRITE(str2, '(i2.2)') nsrf
    … …  
    425425        IF (nsrf.GT.99) THEN
    426426           PRINT*, "Trop de sous-mailles"
    427            CALL abort
     427           call abort_gcm("phyetat0", "", 1)
    428428        ENDIF
    429429        WRITE(str2, '(i2.2)') nsrf
    … …  
    544544        IF (nsrf.GT.99) THEN
    545545           PRINT*, "Trop de sous-mailles"
    546            CALL abort
     546           call abort_gcm("phyetat0", "", 1)
    547547        ENDIF
    548548        WRITE(str2, '(i2.2)') nsrf
    … …  
    582582        IF (nsrf.GT.99) THEN
    583583           PRINT*, "Trop de sous-mailles"
    584            CALL abort
     584           call abort_gcm("phyetat0", "", 1)
    585585        ENDIF
    586586        WRITE(str2, '(i2.2)') nsrf
    … …  
    775775        IF (nsrf.GT.99) THEN
    776776           PRINT*, "Trop de sous-mailles"
    777            CALL abort
     777           call abort_gcm("phyetat0", "", 1)
    778778        ENDIF
    779779        WRITE(str2, '(i2.2)') nsrf

  • LMDZ5/trunk/libf/phylmd/phyredem.F90

    r1907 r1931  
    129129     ELSE
    130130        PRINT*, "Trop de sous-mailles"
    131         CALL abort
     131        call abort_gcm("phyredem", "", 1)
    132132     ENDIF
    133133  ENDDO
    … …  
    141141        ELSE
    142142           PRINT*, "Trop de couches"
    143            CALL abort
     143           call abort_gcm("phyredem", "", 1)
    144144        ENDIF
    145145     ENDDO
    … …  
    153153     ELSE
    154154        PRINT*, "Trop de sous-mailles"
    155         CALL abort
     155        call abort_gcm("phyredem", "", 1)
    156156     ENDIF
    157157  END DO
    … …  
    166166     ELSE
    167167        PRINT*, "Trop de sous-mailles"
    168         CALL abort
     168        call abort_gcm("phyredem", "", 1)
    169169     ENDIF
    170170  ENDDO
    … …  
    177177     ELSE
    178178        PRINT*, "Trop de sous-mailles"
    179         CALL abort
     179        call abort_gcm("phyredem", "", 1)
    180180     ENDIF
    181181  ENDDO
    … …  
    188188     ELSE
    189189        PRINT*, "Trop de sous-mailles"
    190         CALL abort
     190        call abort_gcm("phyredem", "", 1)
    191191     ENDIF
    192192  ENDDO
    … …  
    199199     ELSE
    200200        PRINT*, "Trop de sous-mailles"
    201         CALL abort
     201        call abort_gcm("phyredem", "", 1)
    202202     ENDIF
    203203  ENDDO
    … …  
    222222     ELSE
    223223        PRINT*, "Trop de sous-mailles"
    224         CALL abort
     224        call abort_gcm("phyredem", "", 1)
    225225     ENDIF
    226226  ENDDO
    … …  
    234234     ELSE
    235235        PRINT*, "Trop de sous-mailles"
    236         CALL abort
     236        call abort_gcm("phyredem", "", 1)
    237237     ENDIF
    238238  ENDDO
    … …  
    285285        ELSE
    286286           PRINT*, "Trop de sous-mailles"
    287            CALL abort
     287           call abort_gcm("phyredem", "", 1)
    288288        ENDIF
    289289     ENDDO

  • LMDZ5/trunk/libf/phylmd/physiq.F90

    r1924 r1931  
    11531153           IF(nCFMIP.GT.npCFMIP) THEN
    11541154              print*,'nCFMIP > npCFMIP : augmenter npCFMIP et recompiler'
    1155               CALL abort
     1155              call abort_gcm("physiq", "", 1)
    11561156           else
    11571157              print*,'physiq npCFMIP=',npCFMIP,'nCFMIP=',nCFMIP
    … …  
    12571257     !$OMP BARRIER
    12581258
    1259     freq_outNMC(1) = ecrit_files(7)
    1260     freq_outNMC(2) = ecrit_files(8)
    1261     freq_outNMC(3) = ecrit_files(9)
    1262     WRITE(lunout,*)'OK freq_outNMC(1)=',freq_outNMC(1)
    1263     WRITE(lunout,*)'OK freq_outNMC(2)=',freq_outNMC(2)
    1264     WRITE(lunout,*)'OK freq_outNMC(3)=',freq_outNMC(3)
     1259     freq_outNMC(1) = ecrit_files(7)
     1260     freq_outNMC(2) = ecrit_files(8)
     1261     freq_outNMC(3) = ecrit_files(9)
     1262     WRITE(lunout,*)'OK freq_outNMC(1)=',freq_outNMC(1)
     1263     WRITE(lunout,*)'OK freq_outNMC(2)=',freq_outNMC(2)
     1264     WRITE(lunout,*)'OK freq_outNMC(3)=',freq_outNMC(3)
    12651265
    12661266     include "ini_histday_seri.h"
    … …  
    16921692  ENDIF
    16931693
    1694 ! AI Janv 2014
    1695         do i = 1, klon
    1696          if (fract(i).le.0.) then
    1697             JrNt(i)=0.
    1698          else
    1699             JrNt(i)=1.
    1700          endif
    1701         enddo
     1694  ! AI Janv 2014
     1695  do i = 1, klon
     1696     if (fract(i).le.0.) then
     1697        JrNt(i)=0.
     1698     else
     1699        JrNt(i)=1.
     1700     endif
     1701  enddo
    17021702
    17031703  if (mydebug) then
    … …  
    21232123  ELSE
    21242124     WRITE(lunout,*) "iflag_con non-prevu", iflag_con
    2125      CALL abort
     2125     call abort_gcm("physiq", "", 1)
    21262126  ENDIF
    21272127
    … …  
    32503250
    32513251  ENDIF
    3252   !
    32533252
    32543253  !

  • LMDZ5/trunk/libf/phylmd/radlwsw_m.F90

    r1907 r1931  
    219219  IF (nb_gr*kdlon .NE. KLON) THEN
    220220      PRINT*, "kdlon mauvais:", KLON, kdlon, nb_gr
    221       CALL abort
     221      call abort_gcm("radlwsw", "", 1)
    222222  ENDIF
    223223  IF (kflev .NE. KLEV) THEN
    224224      PRINT*, "kflev differe de KLEV, kflev, KLEV"
    225       CALL abort
     225      call abort_gcm("radlwsw", "", 1)
    226226  ENDIF
    227227  !-------------------------------------------
    … …  
    334334!===== iflag_rrtm ================================================
    335335!     
    336     print*,'iflag_rrtm = ', iflag_rrtm
    337336    IF (iflag_rrtm == 0) THEN
    338337       ! Old radiation scheme, used for AR4 runs

  • LMDZ5/trunk/libf/phylmd/soil.F90

    r1907 r1931  
    178178  ELSE
    179179     WRITE(lunout,*) "valeur d indice non prevue", indice
    180      CALL abort
     180     call abort_gcm("soil", "", 1)
    181181  ENDIF
    182182
Note: See TracChangeset for help on using the changeset viewer.