Ignore:
Timestamp:
Jul 26, 2024, 7:20:23 PM (6 months ago)
Author:
abarral
Message:

Put iotd* into lmdz_iotd.f90

Location:
LMDZ6/branches/Amaury_dev/libf/phylmdiso
Files:
3 deleted
3 edited
1 moved

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/isotopes_routines_mod.F90

    r5133 r5135  
    1574815748      INTEGER ixt,i,k,nsrf
    1574915749
    15750 !      character*50 text
     15750!      CHARACTER*50 text
    1575115751
    1575215752!      WRITE(*,*) 'phyisoetat0 20: fichnom=',fichnom
    … …  
    1593115931        REAL deltaD_snow_fall_O18,deltaD_rain_fall_O18
    1593215932        REAL alpha(niso),kcin(niso)
    15933 !      character*50 text
     15933!      CHARACTER*50 text
    1593415934       
    1593515935      ! initialisation des isotopes

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/isotopes_verif_mod.F90

    r5132 r5135  
    144144        ! input:
    145145        REAL a, b
    146         character*(*) err_msg ! message d''erreur à afficher
     146        CHARACTER*(*) err_msg ! message d''erreur à afficher
    147147
    148148        ! local
    … …  
    173173        ! input:
    174174        REAL a, b
    175         character*(*) err_msg ! message d''erreur à afficher
     175        CHARACTER*(*) err_msg ! message d''erreur à afficher
    176176        !ouptut
    177177        INTEGER iso_verif_egalite_nostop
    … …  
    204204        ! input:
    205205        REAL R
    206         character*(*) err_msg ! message d''erreur à afficher
     206        CHARACTER*(*) err_msg ! message d''erreur à afficher
    207207        !real deltaD
    208208        !integer iso_verif_aberrant_choix_nostop
    … …  
    234234        ! input:
    235235        REAL R
    236         character*(*) err_msg ! message d''erreur à afficher
     236        CHARACTER*(*) err_msg ! message d''erreur à afficher
    237237        !real deltaD
    238238
    … …  
    269269        ! input:
    270270        REAL xt,q,qmin,deltaDmax
    271         character*(*) err_msg ! message d''erreur à afficher
     271        CHARACTER*(*) err_msg ! message d''erreur à afficher
    272272        !real deltaD
    273273
    … …  
    303303        ! input:
    304304        REAL R
    305         character*(*) err_msg ! message d''erreur à afficher
     305        CHARACTER*(*) err_msg ! message d''erreur à afficher
    306306        INTEGER iso_verif_aberrant_nostop ! output: 1 si erreur, 0 sinon
    307307        !real deltaD
    … …  
    334334        ! input:
    335335        REAL R
    336         character*(*) err_msg ! message d''erreur à afficher
     336        CHARACTER*(*) err_msg ! message d''erreur à afficher
    337337        INTEGER iso_verif_aberrant_enc_nostop ! output: 1 si erreur, 0 sinon
    338338        !real deltaD
    … …  
    369369        ! input:
    370370        REAL xt,q,qmin,deltaDmax
    371         character*(*) err_msg ! message d''erreur à afficher
     371        CHARACTER*(*) err_msg ! message d''erreur à afficher
    372372        ! output
    373373        INTEGER iso_verif_aberrant_choix_nostop
    … …  
    430430        ! input:
    431431        REAL xt,q,qmin,deltaDmax
    432         character*(*) err_msg ! message d''erreur à afficher
     432        CHARACTER*(*) err_msg ! message d''erreur à afficher
    433433        ! output
    434434        INTEGER iso_verif_aberrant_enc_choix_nostop
    … …  
    474474        ! input:
    475475        REAL R17,R18
    476         character*(*) err_msg ! message d''erreur à afficher
     476        CHARACTER*(*) err_msg ! message d''erreur à afficher
    477477        !real o17excess
    478478
    … …  
    506506        ! input:
    507507        REAL R17,R18
    508         character*(*) err_msg ! message d''erreur à afficher
     508        CHARACTER*(*) err_msg ! message d''erreur à afficher
    509509        !local
    510510        !real o17excess
    … …  
    545545        ! input:
    546546        REAL x
    547         character*(*) err_msg ! message d''erreur à afficher
     547        CHARACTER*(*) err_msg ! message d''erreur à afficher
    548548
    549549        ! locals
    … …  
    570570        ! input:
    571571        REAL x
    572         character*(*) err_msg ! message d''erreur à afficher
     572        CHARACTER*(*) err_msg ! message d''erreur à afficher
    573573
    574574        ! output
    … …  
    601601          INTEGER n,m,ni
    602602        REAL x(ni,n,m)
    603         character*(*) err_msg ! message d''erreur à afficher
     603        CHARACTER*(*) err_msg ! message d''erreur à afficher
    604604
    605605        ! output
    … …  
    640640          INTEGER n,ni
    641641        REAL x(ni,n)
    642         character*(*) err_msg ! message d''erreur à afficher
     642        CHARACTER*(*) err_msg ! message d''erreur à afficher
    643643
    644644        ! output
    … …  
    680680        REAL a, b
    681681        REAL erabs,errel !erreur absolue et relative
    682         character*(*) err_msg ! message d''erreur à afficher
     682        CHARACTER*(*) err_msg ! message d''erreur à afficher
    683683
    684684        ! locals
    … …  
    709709        REAL a, b
    710710        REAL erabs,errel !erreur absolue et relative
    711         character*(*) err_msg ! message d''erreur à afficher
     711        CHARACTER*(*) err_msg ! message d''erreur à afficher
    712712
    713713        ! output
    … …  
    762762        ! input:
    763763        REAL x
    764         character*(*) err_msg ! message d''erreur à afficher
     764        CHARACTER*(*) err_msg ! message d''erreur à afficher
    765765
    766766        ! locals
    … …  
    790790        INTEGER n
    791791        REAL x(n)
    792         character*(*) err_msg ! message d''erreur à afficher
     792        CHARACTER*(*) err_msg ! message d''erreur à afficher
    793793
    794794        ! locals
    … …  
    821821        REAL x(n)
    822822        REAL ridic
    823         character*(*) err_msg ! message d''erreur à afficher
     823        CHARACTER*(*) err_msg ! message d''erreur à afficher
    824824        ! locals
    825825        INTEGER i
    … …  
    852852        ! input:
    853853        REAL x
    854         character*(*) err_msg ! message d''erreur à afficher
     854        CHARACTER*(*) err_msg ! message d''erreur à afficher
    855855
    856856        ! locals
    … …  
    873873        ! input:
    874874        REAL x
    875         character*(*) err_msg ! message d''erreur à afficher*
     875        CHARACTER*(*) err_msg ! message d''erreur à afficher*
    876876
    877877        ! output
    … …  
    901901        REAL x
    902902        REAL ridic
    903         character*(*) err_msg ! message d''erreur à afficher
     903        CHARACTER*(*) err_msg ! message d''erreur à afficher
    904904
    905905        ! locals
    … …  
    929929        ! input:
    930930        REAL x
    931         character*(*) err_msg ! message d''erreur à afficher
     931        CHARACTER*(*) err_msg ! message d''erreur à afficher
    932932
    933933        ! output
    … …  
    960960        REAL x
    961961        REAL ridic
    962         character*(*) err_msg ! message d''erreur à afficher
     962        CHARACTER*(*) err_msg ! message d''erreur à afficher
    963963
    964964        ! output
    … …  
    997997        ! input:
    998998        REAL Rd,Ro
    999         character*(*) err_msg ! message d''erreur à afficher
     999        CHARACTER*(*) err_msg ! message d''erreur à afficher
    10001000
    10011001        ! local
    … …  
    10181018        ! input:
    10191019        REAL Rd,Ro
    1020         character*(*) err_msg ! message d''erreur à afficher
     1020        CHARACTER*(*) err_msg ! message d''erreur à afficher
    10211021
    10221022        ! outputs
    … …  
    11541154          REAL q(n,m)
    11551155          REAL xt(ni,n,m)
    1156           character*(*) err_msg
     1156          CHARACTER*(*) err_msg
    11571157
    11581158        ! locals
    … …  
    12051205        REAL q(n)
    12061206        REAL xt(ni,n)
    1207         character*(*) err_msg
     1207        CHARACTER*(*) err_msg
    12081208
    12091209        ! locals
    … …  
    12441244          REAL a(n,m)
    12451245          REAL b(n,m)
    1246           character*(*) err_msg
     1246          CHARACTER*(*) err_msg
    12471247          REAL errmax,errmaxrel
    12481248
    … …  
    12871287          REAL q(n,m)
    12881288          REAL xt(ni,n,m)
    1289           character*(*) err_msg
     1289          CHARACTER*(*) err_msg
    12901290
    12911291        ! locals
    … …  
    13341334          REAL q(n,m)
    13351335          REAL xt(ni,n,m)
    1336           character*(*) err_msg
     1336          CHARACTER*(*) err_msg
    13371337
    13381338        ! locals
    … …  
    13861386          REAL q(n,m)
    13871387          REAL xt(ni,n,m)
    1388           character*(*) err_msg
     1388          CHARACTER*(*) err_msg
    13891389
    13901390        ! locals
    … …  
    14361436          REAL q(n,m)
    14371437          REAL xt(ni,n,m)
    1438           character*(*) err_msg
     1438          CHARACTER*(*) err_msg
    14391439          REAL deltaDmax
    14401440
    … …  
    14841484          REAL q(n,m)
    14851485          REAL xt(ni,n,m)
    1486           character*(*) err_msg
     1486          CHARACTER*(*) err_msg
    14871487
    14881488        ! locals
    … …  
    17041704          INTEGER n,m,ni,ib,ie
    17051705        REAL x(ni,n,m)
    1706         character*(*) err_msg ! message d''erreur à afficher
     1706        CHARACTER*(*) err_msg ! message d''erreur à afficher
    17071707
    17081708        ! output
    … …  
    17461746          REAL q(n,m)
    17471747          REAL xt(ni,n,m)
    1748           character*(*) err_msg
     1748          CHARACTER*(*) err_msg
    17491749
    17501750        ! locals
    … …  
    17951795          REAL q(n,m)
    17961796          REAL xt(ni,n,m)
    1797           character*(*) err_msg
     1797          CHARACTER*(*) err_msg
    17981798
    17991799        ! locals
    … …  
    18411841       ! inputs
    18421842       REAL x(ntraciso)
    1843        character*(*) err_msg ! message d''erreur à afficher
     1843       CHARACTER*(*) err_msg ! message d''erreur à afficher
    18441844       REAL errmax,errmaxrel,ridicule_trac,deltalimtrac
    18451845
    … …  
    18921892       ! inputs
    18931893       REAL x(ntraciso)
    1894        character*(*) err_msg ! message d''erreur à afficher
     1894       CHARACTER*(*) err_msg ! message d''erreur à afficher
    18951895       REAL errmax,errmaxrel,ridicule_trac,deltalimtrac
    18961896
    … …  
    19311931        ! inputs
    19321932       REAL x(ntraciso)
    1933        character*(*) err_msg ! message d''erreur à afficher
     1933       CHARACTER*(*) err_msg ! message d''erreur à afficher
    19341934       REAL seuil
    19351935
    … …  
    19611961        ! inputs
    19621962       REAL x(ntraciso)
    1963        character*(*) err_msg ! message d''erreur à afficher
     1963       CHARACTER*(*) err_msg ! message d''erreur à afficher
    19641964
    19651965       ! output
    … …  
    19931993        ! inputs
    19941994        REAL x(ntraciso)
    1995         character*(*) err_msg ! message d''erreur à afficher
     1995        CHARACTER*(*) err_msg ! message d''erreur à afficher
    19961996        REAL errmaxin,errmaxrelin
    19971997
    … …  
    20502050        ! inputs
    20512051        REAL x(ntraciso)
    2052         character*(*) err_msg ! message d''erreur à afficher
     2052        CHARACTER*(*) err_msg ! message d''erreur à afficher
    20532053        REAL ridicule_trac,deltalimtrac
    20542054
    … …  
    21352135       ! inputs
    21362136       REAL x(ntraciso)
    2137        character*(*) err_msg ! message d''erreur à afficher
     2137       CHARACTER*(*) err_msg ! message d''erreur à afficher
    21382138
    21392139       ! locals
    … …  
    21642164       INTEGER n1,n2,n3
    21652165       REAL x(n1,n2,n3,ntraciso)
    2166        character*(*) err_msg ! message d''erreur à afficher
     2166       CHARACTER*(*) err_msg ! message d''erreur à afficher
    21672167       INTEGER i1,i2,i3
    21682168
    … …  
    21962196       INTEGER n1,n2,n3,n4
    21972197       REAL x(n1,n2,n3,n4,ntraciso)
    2198        character*(*) err_msg ! message d''erreur à afficher
     2198       CHARACTER*(*) err_msg ! message d''erreur à afficher
    21992199       INTEGER i1,i2,i3,i4
    22002200
    … …  
    22282228       INTEGER n1,n2
    22292229       REAL x(n1,n2,ntraciso)
    2230        character*(*) err_msg ! message d''erreur à afficher
     2230       CHARACTER*(*) err_msg ! message d''erreur à afficher
    22312231       INTEGER i1,i2
    22322232
    … …  
    22582258       INTEGER n,m
    22592259       REAL x(ntraciso,n,m)
    2260        character*(*) err_msg ! message d''erreur à afficher
     2260       CHARACTER*(*) err_msg ! message d''erreur à afficher
    22612261
    22622262       ! locals
    … …  
    22922292       INTEGER n,m
    22932293       REAL x(ntraciso,n,m)
    2294        character*(*) err_msg ! message d''erreur à afficher
     2294       CHARACTER*(*) err_msg ! message d''erreur à afficher
    22952295
    22962296       ! locals
    … …  
    23172317       INTEGER n,m
    23182318       REAL x(ntraciso,n,m)
    2319        character*(*) err_msg ! message d''erreur à afficher
     2319       CHARACTER*(*) err_msg ! message d''erreur à afficher
    23202320
    23212321       ! locals
    … …  
    23612361       INTEGER n,m
    23622362       REAL x(ntraciso,n,m)
    2363        character*(*) err_msg ! message d''erreur à afficher
     2363       CHARACTER*(*) err_msg ! message d''erreur à afficher
    23642364       REAL errmax,errmaxrel
    23652365
    … …  
    24012401       INTEGER n,m
    24022402       REAL x(ntraciso,n,m)
    2403        character*(*) err_msg ! message d''erreur à afficher
     2403       CHARACTER*(*) err_msg ! message d''erreur à afficher
    24042404
    24052405       ! locals
    … …  
    24402440       INTEGER n,m
    24412441       REAL x(ntraciso,n,m)
    2442        character*(*) err_msg ! message d''erreur à afficher
     2442       CHARACTER*(*) err_msg ! message d''erreur à afficher
    24432443       REAL seuil
    24442444
    … …  
    24882488       ! inputs
    24892489       REAL x(ntraciso)
    2490        character*(*) err_msg ! message d''erreur à afficher
     2490       CHARACTER*(*) err_msg ! message d''erreur à afficher
    24912491
    24922492       ! locals
    … …  
    25122512       ! inputs
    25132513       REAL x(ntraciso)
    2514        character*(*) err_msg ! message d''erreur à afficher
     2514       CHARACTER*(*) err_msg ! message d''erreur à afficher
    25152515       REAL seuil
    25162516
    … …  
    25342534       ! inputs
    25352535       REAL x(ntraciso)
    2536        character*(*) err_msg ! message d''erreur à afficher
     2536       CHARACTER*(*) err_msg ! message d''erreur à afficher
    25372537       REAL errmax,errmaxrel,ridicule_trac_loc,deltalimtrac
    25382538
    … …  
    25612561       ! inputs
    25622562       REAL x(ntraciso)
    2563        character*(*) err_msg ! message d''erreur à afficher
     2563       CHARACTER*(*) err_msg ! message d''erreur à afficher
    25642564
    25652565       ! output
    … …  
    25852585       ! inputs
    25862586       REAL x(ntraciso)
    2587        character*(*) err_msg ! message d''erreur à afficher
     2587       CHARACTER*(*) err_msg ! message d''erreur à afficher
    25882588
    25892589       ! locals
    … …  
    26132613       ! inputs
    26142614       REAL x(ntraciso)
    2615        character*(*) err_msg ! message d''erreur à afficher
     2615       CHARACTER*(*) err_msg ! message d''erreur à afficher
    26162616
    26172617       ! output
    … …  
    26442644        INTEGER n,m
    26452645        REAL x(ntraciso,n,m)
    2646         character*(*) err_msg
     2646        CHARACTER*(*) err_msg
    26472647
    26482648        ! locals
    … …  
    27022702        INTEGER n,m,nq
    27032703        REAL x(n,m,nq,ntraciso)
    2704         character*(*) err_msg
     2704        CHARACTER*(*) err_msg
    27052705
    27062706        ! locals

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/isotrac_routines_mod.F90

    r5117 r5135  
    26662666       ! inputs
    26672667       REAL x(ntraciso)
    2668        character*(*) err_msg ! message d''erreur à afficher
     2668       CHARACTER*(*) err_msg ! message d''erreur à afficher
    26692669
    26702670       ! local
    … …  
    26932693       ! inputs
    26942694       REAL x(ntraciso)
    2695        character*(*) err_msg ! message d''erreur à afficher
     2695       CHARACTER*(*) err_msg ! message d''erreur à afficher
    26962696
    26972697       ! output
    … …  
    27452745       INTEGER n,m
    27462746       REAL x(ntraciso,n,m)
    2747        character*(*) err_msg ! message d''erreur à afficher       
     2747       CHARACTER*(*) err_msg ! message d''erreur à afficher
    27482748
    27492749       ! locals

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/lmdz_iotd.f90

    r5134 r5135  
    1 link ../phylmd/iotd.h
     1link ../phylmd/lmdz_iotd.f90
Note: See TracChangeset for help on using the changeset viewer.