Ignore:
Timestamp:
May 9, 2022, 12:35:40 PM (2 years ago)
Author:
dcugnet
Message:
  • Some variables are renamed or replaced by direct equivalents:
    • iso_indnum -> tracers(:)%iso_iName
    • niso_possibles -> niso
    • iqiso -> iqIsoPha ; index_trac -> itZonIso
    • ok_iso_verif -> isoCheck
    • ntraceurs_zone -> nzone ; ntraciso -> ntiso
    • qperemin -> min_qparent ; masseqmin -> min_qmass ; ratiomin -> min_ratio
  • Some renamed variables are only aliased with the older name (using USE <module>, ONLY: <oldName> => <newName>) in routines where they are repeated many times.
  • Few hard-coded indexes are now computed (examples: ilic, iso, ivap, irneb, iq_vap, iq_liq, iso_H2O, iso_HDO, iso_HTO, iso_O17, iso_O18).
  • The IF(isoCheck) test is now embedded in the check_isotopes_seq and check_isotopes_loc routines (lighter calling).
File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmdiso/isotrac_routines_mod.F90

    r3927 r4143  
    88! isotopes_verif a besoin de isotopes et isotrac
    99! isotrac n'a besoin que de isotopes
     10    USE infotrac_phy, ONLY: ntraciso=>ntiso, niso, index_trac=>itZonIso, ntraceurs_zone=>nzone
    1011IMPLICIT NONE
    1112
    … …  
    1718     &           ncum,izone)
    1819
    19     USE infotrac_phy, ONLY: ntraciso,niso,index_trac
    2020    USE isotopes_mod, ONLY: ridicule,iso_eau
    2121
    … …  
    6363     &          xtp_avantevap_cas,liq,hdiag)
    6464
    65     USE infotrac_phy, ONLY: ntraciso,niso,index_trac
    6665    USE isotopes_mod, ONLY: ridicule,iso_eau,iso_HDO,ridicule_evap
    6766    USE isotrac_mod, only: option_revap,evap_franche,izone_revap, &
    … …  
    231230     &    nloc,ncum,nd,i,izone)
    232231
    233     USE infotrac_phy, ONLY: ntraciso,niso,index_trac
    234232    USE isotopes_mod, ONLY: iso_eau
    235233#ifdef ISOVERIF       
    … …  
    320318     &    nloc,ncum,nd,i,izone)
    321319
    322     USE infotrac_phy, ONLY: ntraciso,niso,index_trac
    323320    USE isotopes_mod, ONLY: iso_eau
    324321#ifdef ISOVERIF
    … …  
    408405     &    nloc,ncum,nd,i,izone)
    409406
    410     USE infotrac_phy, ONLY: ntraciso,niso,index_trac
    411407    USE isotopes_mod, ONLY: ridicule,iso_eau
    412408#ifdef ISOVERIF
    … …  
    476472     &    nloc,ncum,nd,izone)
    477473
    478     USE infotrac_phy, ONLY: ntraciso,niso,index_trac
    479474    USE isotopes_mod, ONLY: ridicule,iso_eau
    480475#ifdef ISOVERIF
    … …  
    643638     &    nloc,ncum,nd,i,frac_sublim,izone)
    644639
    645     USE infotrac_phy, ONLY: ntraciso,niso,index_trac
    646640    USE isotopes_mod, ONLY: ridicule,iso_eau
    647641#ifdef ISOVERIF
    … …  
    802796     &       xtrevap_tag,liq,hdiag)
    803797
    804     USE infotrac_phy, ONLY: ntraciso,niso,index_trac
    805798    USE isotopes_mod, ONLY: ridicule,iso_eau
    806799    USE isotrac_mod, only: option_revap,evap_franche
    … …  
    899892     &       klon,izone,ptrac)
    900893
    901     USE infotrac_phy, ONLY: ntraciso,niso,index_trac
    902894    USE isotopes_mod, ONLY: ridicule,iso_eau
    903895#ifdef ISOVERIF
    … …  
    986978     &       klon,izone)
    987979
    988     USE infotrac_phy, ONLY: ntraciso,niso,index_trac
    989980    USE isotopes_mod, ONLY: ridicule,iso_eau
    990981#ifdef ISOVERIF
    … …  
    10521043     &    klon,izone,zxt,xtrevap_tag)
    10531044
    1054 USE infotrac_phy, ONLY: ntraciso,niso, &
    1055         ntraceurs_zone,index_trac
    10561045#ifdef ISOVERIF
    10571046USE isotopes_verif_mod
    … …  
    13421331
    13431332      subroutine find_bassin(lat,lon,bassin)
    1344       use isotrac_mod, only: izone_poubelle,ntraceurs_zone,option_traceurs, &
     1333      use isotrac_mod, only: izone_poubelle,ntraceurs_zone=>ntiso,option_traceurs, &
    13451334&        bassin_map
    13461335#ifdef ISOVERIF
    … …  
    15171506        subroutine isotrac_recolorise_tmin(xt,t)
    15181507        USE dimphy, only: klon, klev
    1519         USE infotrac_phy, ONLY: ntraciso,niso, &
    1520         ntraceurs_zone,index_trac
    15211508        USE isotrac_mod, only: zone_temp,nzone_temp
    15221509#ifdef ISOVERIF
    … …  
    16031590        subroutine isotrac_recolorise_tmin_sfrev(xt,t)
    16041591        USE dimphy, only: klon,klev
    1605         USE infotrac_phy, ONLY: ntraciso,niso, &
    1606         ntraceurs_zone,index_trac
    16071592        USE isotrac_mod, only: nzone_temp,zone_temp
    16081593#ifdef ISOVERIF
    … …  
    16611646        subroutine isotrac_recolorise_saturation(xt,rh,lat,pres)
    16621647        USE dimphy, only: klon,klev
    1663         USE infotrac_phy, ONLY: ntraciso,niso, &
    1664         ntraceurs_zone,index_trac
    16651648#ifdef ISOVERIF
    16661649        USE isotopes_verif_mod
    … …  
    17271710        subroutine isotrac_recolorise_boite(xt,boite_map)
    17281711        USE dimphy, only: klon,klev
    1729         USE infotrac_phy, ONLY: ntraciso,niso, &
    1730         ntraceurs_zone,index_trac
    17311712#ifdef ISOVERIF
    17321713        USE isotopes_verif_mod
    … …  
    17811762        subroutine isotrac_recolorise_extra(xt,rlat)
    17821763        USE dimphy, only: klon,klev
    1783         USE infotrac_phy, ONLY: ntraciso,niso, &
    1784         ntraceurs_zone,index_trac
    17851764        usE isotrac_mod, only: lim_tag20,izone_trop,izone_extra
    17861765#ifdef ISOVERIF
    … …  
    18301809        subroutine isotrac_recolorise_conv(xt,rlat,presnivs,rain_con)
    18311810        USE dimphy, only: klon,klev
    1832         USE infotrac_phy, ONLY: ntraciso,niso, &
    1833         ntraceurs_zone,index_trac
    18341811        use isotrac_mod, only: lim_precip_tag22, &
    18351812&       izone_conv_BT,izone_conv_UT
    … …  
    19021879        subroutine boite_AMMA_init(lat,lon,presnivs,boite_map)
    19031880        USE dimphy, only: klon,klev
    1904         USE infotrac_phy, ONLY: ntraciso,niso, &
    1905         ntraceurs_zone,index_trac
    19061881#ifdef ISOVERIF
    19071882        USE isotopes_verif_mod
    … …  
    19571932        subroutine boite_UT_extra_init(lat,lon,presnivs,boite_map)
    19581933        USE dimphy, only: klon,klev
    1959         USE infotrac_phy, ONLY: ntraciso,niso, &
    1960         ntraceurs_zone,index_trac
    19611934        use isotrac_mod, only: izone_extra,izone_trop
    19621935#ifdef ISOVERIF
    … …  
    20952068     &           seuil_in)
    20962069        USE dimphy, only: klon,klev
    2097         USE infotrac_phy, ONLY: ntraciso,niso, &
    2098         ntraceurs_zone,index_trac
    20992070        USE isotopes_mod, only: bidouille_anti_divergence,iso_eau
    21002071        use isotrac_mod, only: option_seuil_tag_tmin,izone_cond, &
    … …  
    23042275        subroutine bassin_map_init_opt20(lat,bassin_map)
    23052276        USE dimphy, only: klon
    2306         USE infotrac_phy, ONLY: ntraciso,niso, &
    2307         ntraceurs_zone,index_trac
    23082277        use isotrac_mod, only: izone_cont,izone_trop,lim_tag20
    23092278#ifdef ISOVERIF
    … …  
    23342303        USE geometry_mod, ONLY : latitude_deg
    23352304        USE dimphy, only: klon,klev
    2336         use infotrac_phy, only: ntraciso
    23372305        use isotrac_mod, only: option_traceurs,boite_map
    23382306        implicit none
    … …  
    23652333        subroutine iso_verif_traceur_jbid_vect(x,n,m)
    23662334        USE isotopes_mod, ONLY: bidouille_anti_divergence,iso_eau,ridicule
    2367         USE infotrac_phy, ONLY: index_trac,niso,ntraciso
    2368         use isotrac_mod, only: ntraceurs_zone
     2335        use isotrac_mod, only: ntraceurs_zone=>nzone
    23692336        implicit none
    23702337       
    … …  
    24302397        subroutine iso_verif_traceur_jbidouille(x)
    24312398        USE isotopes_mod, ONLY: bidouille_anti_divergence,iso_eau,ridicule
    2432         USE infotrac_phy, ONLY: index_trac,niso,ntraciso,ntraceurs_zone
    24332399        implicit none
    24342400       
    … …  
    24702436        subroutine iso_verif_traceur_jbid_pos(x)
    24712437        USE isotopes_mod, ONLY: bidouille_anti_divergence,iso_eau,ridicule
    2472         USE infotrac_phy, ONLY: index_trac,niso,ntraciso,ntraceurs_zone
    24732438!#ifdef ISOVERIF
    24742439!        use isotopes_verif_mod, only: iso_verif_traceur_pbidouille
    … …  
    25442509        subroutine iso_verif_traceur_jbid_pos_vect(n,m,x)
    25452510        USE isotopes_mod, ONLY: bidouille_anti_divergence,iso_eau,ridicule
    2546         USE infotrac_phy, ONLY: index_trac,niso,ntraciso,ntraceurs_zone
    25472511#ifdef ISOVERIF
    25482512        USE isotopes_verif_mod
    … …  
    26252589        subroutine iso_verif_traceur_jbid_pos2(x,q)
    26262590        USE isotopes_mod, ONLY: bidouille_anti_divergence,iso_eau,ridicule
    2627         USE infotrac_phy, ONLY: index_trac,niso,ntraciso,ntraceurs_zone
    26282591#ifdef ISOVERIF
    26292592        use isotopes_verif_mod
    … …  
    26962659        subroutine iso_verif_traceur_jbid_vect1D(x,n)
    26972660        USE isotopes_mod, ONLY: bidouille_anti_divergence,iso_eau,ridicule
    2698         USE infotrac_phy, ONLY: index_trac,niso,ntraciso,ntraceurs_zone
    26992661        implicit none
    27002662       
    … …  
    27392701
    27402702        subroutine iso_verif_traceur_pbidouille(x,err_msg)
    2741         USE infotrac_phy, ONLY: ntraciso
    27422703        use isotopes_verif_mod
    27432704        implicit none
    … …  
    27652726
    27662727        function iso_verif_traceur_pbid_ns(x,err_msg)
    2767         USE infotrac_phy, ONLY: ntraciso
    27682728        use isotopes_mod, ONLY: iso_HDO,bidouille_anti_divergence
    27692729        use isotrac_mod, only: ridicule_trac
    … …  
    28282788
    28292789        subroutine iso_verif_traceur_pbid_vect(x,n,m,err_msg)
    2830         USE infotrac_phy, ONLY: ntraciso
    28312790        use isotopes_mod, ONLY: iso_HDO,bidouille_anti_divergence
    28322791        use isotopes_verif_mod
Note: See TracChangeset for help on using the changeset viewer.