Ignore:
Timestamp:
Dec 6, 2022, 12:01:16 AM (19 months ago)
Author:
lguez
Message:

Sync latest trunk changes to Ocean_skin

Location:
LMDZ6/branches/Ocean_skin
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Ocean_skin

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

    r3927 r4368  
    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
    … …  
    11241113      USE isotrac_mod, only: use_bassin_atlantic,use_bassin_medit, &
    11251114&       use_bassin_indian,use_bassin_austral,use_bassin_pacific, &
    1126 &       use_bassin_merarabie,use_bassin_golfebengale,use_bassin_indiansud, &
    1127 &       use_bassin_tropics,use_bassin_midlats,use_bassin_hauteslats, &
     1115&       use_bassin_MerArabie,use_bassin_BengalGolf,use_bassin_SouthIndian, &
     1116&       use_bassin_tropics,use_bassin_midlats,use_bassin_HighLats, &
    11281117&       bassin_atlantic,bassin_medit, &
    11291118&       bassin_indian,bassin_austral,bassin_pacific, &
    1130 &       bassin_merarabie,bassin_golfebengale,bassin_indiansud, &
    1131 &       bassin_tropics,bassin_midlats,bassin_hauteslats
     1119&       bassin_MerArabie,bassin_BengalGolf,bassin_SouthIndian, &
     1120&       bassin_tropics,bassin_midlats,bassin_HighLats
    11321121      implicit none
    11331122      ! répond true si lat,lon se trouve dans le bassin numéroté bassin
    … …  
    11481137      write(*,*) 'is_in_basin 84: entree,bassin=',bassin
    11491138#endif
    1150       if ((use_bassin_atlantic.eq.1).and. &
    1151      &           (bassin.eq.bassin_atlantic)) then
     1139      if (use_bassin_atlantic .and. bassin==bassin_atlantic) then
    11521140#ifdef ISOVERIF           
    11531141          write(*,*) 'bassin Atlantique?'
    … …  
    11801168          endif
    11811169
    1182       else if ((use_bassin_medit.eq.1).and. &
    1183      &           (bassin.eq.bassin_medit)) then
     1170      else if (use_bassin_medit .and. bassin==bassin_medit) then
    11841171#ifdef ISOVERIF           
    11851172          write(*,*) 'bassin Medit?'
    … …  
    11941181          endif
    11951182
    1196       else if ((use_bassin_indian.eq.1).and. &
    1197      &           (bassin.eq.bassin_indian)) then
     1183      else if (use_bassin_indian .and. bassin==bassin_indian) then
    11981184#ifdef ISOVERIF           
    11991185          write(*,*) 'bassin indian?'
    … …  
    12101196          endif   
    12111197
    1212       else if ((use_bassin_indiansud.eq.1).and. &
    1213      &           (bassin.eq.bassin_indiansud)) then
     1198      else if (use_bassin_SouthIndian .and. bassin==bassin_SouthIndian) then
    12141199#ifdef ISOVERIF           
    12151200          write(*,*) 'bassin indian hemisphere Sud?'
    … …  
    12201205          endif
    12211206         
    1222       else if ((use_bassin_merarabie.eq.1).and. &
    1223      &           (bassin.eq.bassin_merarabie)) then
     1207      else if (use_bassin_MerArabie .and. bassin==bassin_MerArabie) then
    12241208#ifdef ISOVERIF           
    12251209          write(*,*) 'bassin Mer d''Arabie?'
    … …  
    12301214          endif
    12311215
    1232       else if ((use_bassin_golfebengale.eq.1).and. &
    1233      &           (bassin.eq.bassin_golfebengale)) then
     1216      else if (use_bassin_BengalGolf .and. bassin==bassin_BengalGolf) then
    12341217#ifdef ISOVERIF           
    12351218          write(*,*) 'bassin Golfe du Bengale?'
    … …  
    12401223          endif         
    12411224
    1242       else if ((use_bassin_pacific.eq.1).and. &
    1243      &           (bassin.eq.bassin_pacific)) then
     1225      else if (use_bassin_pacific .and. bassin==bassin_pacific) then
    12441226#ifdef ISOVERIF           
    12451227          write(*,*) 'bassin Pacific?'
    … …  
    12781260          endif
    12791261
    1280       else if ((use_bassin_austral.eq.1).and. &
    1281      &           (bassin.eq.bassin_austral)) then 
     1262      else if (use_bassin_austral .and. bassin==bassin_austral) then 
    12821263#ifdef ISOVERIF           
    12831264          write(*,*) 'bassin austral?'
    … …  
    12881269          endif 
    12891270
    1290       else if ((use_bassin_hauteslats.eq.1).and. &
    1291      &           (bassin.eq.bassin_hauteslats)) then 
     1271      else if (use_bassin_HighLats .and. bassin==bassin_HighLats) then 
    12921272#ifdef ISOVERIF           
    12931273          write(*,*) 'bassin hautes lats?'
    … …  
    12981278          endif
    12991279
    1300       else if ((use_bassin_tropics.eq.1).and. &
    1301      &           (bassin.eq.bassin_tropics)) then 
     1280      else if (use_bassin_tropics .and. bassin==bassin_tropics) then 
    13021281#ifdef ISOVERIF           
    13031282          write(*,*) 'bassin tropics?'
    … …  
    13081287          endif
    13091288
    1310        else if ((use_bassin_midlats.eq.1).and. &
    1311      &           (bassin.eq.bassin_midlats)) then 
     1289       else if (use_bassin_midlats .and. bassin==bassin_midlats) then 
    13121290#ifdef ISOVERIF           
    13131291          write(*,*) 'bassin mid lats?'
    … …  
    13251303          write(*,*) 'bassin_indian=' ,bassin_indian
    13261304          write(*,*) 'bassin_austral=' ,bassin_austral
    1327           write(*,*) 'bassin_merarabie=' ,bassin_merarabie
    1328           write(*,*) 'bassin_golfebengale=' ,bassin_golfebengale
    1329           write(*,*) 'bassin_indiansud=' ,bassin_indiansud
     1305          write(*,*) 'bassin_MerArabie=' ,bassin_MerArabie
     1306          write(*,*) 'bassin_BengalGolf=' ,bassin_BengalGolf
     1307          write(*,*) 'bassin_SouthIndian=' ,bassin_SouthIndian
    13301308          write(*,*) 'use_bassin_atlantic=' ,use_bassin_atlantic 
    13311309          write(*,*) 'use_bassin_medit=' ,use_bassin_medit
    13321310          write(*,*) 'use_bassin_indian=' ,use_bassin_indian
    13331311          write(*,*) 'use_bassin_austral=' ,use_bassin_austral
    1334           write(*,*) 'use_bassin_merarabie=' ,use_bassin_merarabie
    1335           write(*,*) 'use_bassin_golfebengale=' ,use_bassin_golfebengale
    1336           write(*,*) 'use_bassin_indiansud=' ,use_bassin_indiansud
     1312          write(*,*) 'use_bassin_MerArabie=' ,use_bassin_MerArabie
     1313          write(*,*) 'use_bassin_BengalGolf=' ,use_bassin_BengalGolf
     1314          write(*,*) 'use_bassin_SouthIndian=' ,use_bassin_SouthIndian
    13371315          stop
    13381316      endif
    … …  
    13421320
    13431321      subroutine find_bassin(lat,lon,bassin)
    1344       use isotrac_mod, only: izone_poubelle,ntraceurs_zone,option_traceurs, &
     1322      use isotrac_mod, only: izone_poubelle,ntraceurs_zone=>ntiso,option_traceurs, &
    13451323&        bassin_map
    13461324#ifdef ISOVERIF
    … …  
    15171495        subroutine isotrac_recolorise_tmin(xt,t)
    15181496        USE dimphy, only: klon, klev
    1519         USE infotrac_phy, ONLY: ntraciso,niso, &
    1520         ntraceurs_zone,index_trac
    15211497        USE isotrac_mod, only: zone_temp,nzone_temp
    15221498#ifdef ISOVERIF
    … …  
    16031579        subroutine isotrac_recolorise_tmin_sfrev(xt,t)
    16041580        USE dimphy, only: klon,klev
    1605         USE infotrac_phy, ONLY: ntraciso,niso, &
    1606         ntraceurs_zone,index_trac
    16071581        USE isotrac_mod, only: nzone_temp,zone_temp
    16081582#ifdef ISOVERIF
    … …  
    16611635        subroutine isotrac_recolorise_saturation(xt,rh,lat,pres)
    16621636        USE dimphy, only: klon,klev
    1663         USE infotrac_phy, ONLY: ntraciso,niso, &
    1664         ntraceurs_zone,index_trac
    16651637#ifdef ISOVERIF
    16661638        USE isotopes_verif_mod
    … …  
    17271699        subroutine isotrac_recolorise_boite(xt,boite_map)
    17281700        USE dimphy, only: klon,klev
    1729         USE infotrac_phy, ONLY: ntraciso,niso, &
    1730         ntraceurs_zone,index_trac
    17311701#ifdef ISOVERIF
    17321702        USE isotopes_verif_mod
    … …  
    17811751        subroutine isotrac_recolorise_extra(xt,rlat)
    17821752        USE dimphy, only: klon,klev
    1783         USE infotrac_phy, ONLY: ntraciso,niso, &
    1784         ntraceurs_zone,index_trac
    17851753        usE isotrac_mod, only: lim_tag20,izone_trop,izone_extra
    17861754#ifdef ISOVERIF
    … …  
    18301798        subroutine isotrac_recolorise_conv(xt,rlat,presnivs,rain_con)
    18311799        USE dimphy, only: klon,klev
    1832         USE infotrac_phy, ONLY: ntraciso,niso, &
    1833         ntraceurs_zone,index_trac
    18341800        use isotrac_mod, only: lim_precip_tag22, &
    18351801&       izone_conv_BT,izone_conv_UT
    … …  
    19021868        subroutine boite_AMMA_init(lat,lon,presnivs,boite_map)
    19031869        USE dimphy, only: klon,klev
    1904         USE infotrac_phy, ONLY: ntraciso,niso, &
    1905         ntraceurs_zone,index_trac
    19061870#ifdef ISOVERIF
    19071871        USE isotopes_verif_mod
    … …  
    19571921        subroutine boite_UT_extra_init(lat,lon,presnivs,boite_map)
    19581922        USE dimphy, only: klon,klev
    1959         USE infotrac_phy, ONLY: ntraciso,niso, &
    1960         ntraceurs_zone,index_trac
    19611923        use isotrac_mod, only: izone_extra,izone_trop
    19621924#ifdef ISOVERIF
    … …  
    20952057     &           seuil_in)
    20962058        USE dimphy, only: klon,klev
    2097         USE infotrac_phy, ONLY: ntraciso,niso, &
    2098         ntraceurs_zone,index_trac
    20992059        USE isotopes_mod, only: bidouille_anti_divergence,iso_eau
    21002060        use isotrac_mod, only: option_seuil_tag_tmin,izone_cond, &
    … …  
    23042264        subroutine bassin_map_init_opt20(lat,bassin_map)
    23052265        USE dimphy, only: klon
    2306         USE infotrac_phy, ONLY: ntraciso,niso, &
    2307         ntraceurs_zone,index_trac
    23082266        use isotrac_mod, only: izone_cont,izone_trop,lim_tag20
    23092267#ifdef ISOVERIF
    … …  
    23342292        USE geometry_mod, ONLY : latitude_deg
    23352293        USE dimphy, only: klon,klev
    2336         use infotrac_phy, only: ntraciso
    23372294        use isotrac_mod, only: option_traceurs,boite_map
    23382295        implicit none
    … …  
    23652322        subroutine iso_verif_traceur_jbid_vect(x,n,m)
    23662323        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
     2324        !use isotrac_mod, only: ntraceurs_zone=>nzone
     2325        USE infotrac_phy, ONLY: ntraceurs_zone=>nzone
    23692326        implicit none
    23702327       
    … …  
    24302387        subroutine iso_verif_traceur_jbidouille(x)
    24312388        USE isotopes_mod, ONLY: bidouille_anti_divergence,iso_eau,ridicule
    2432         USE infotrac_phy, ONLY: index_trac,niso,ntraciso,ntraceurs_zone
    24332389        implicit none
    24342390       
    … …  
    24702426        subroutine iso_verif_traceur_jbid_pos(x)
    24712427        USE isotopes_mod, ONLY: bidouille_anti_divergence,iso_eau,ridicule
    2472         USE infotrac_phy, ONLY: index_trac,niso,ntraciso,ntraceurs_zone
    24732428!#ifdef ISOVERIF
    24742429!        use isotopes_verif_mod, only: iso_verif_traceur_pbidouille
    … …  
    25442499        subroutine iso_verif_traceur_jbid_pos_vect(n,m,x)
    25452500        USE isotopes_mod, ONLY: bidouille_anti_divergence,iso_eau,ridicule
    2546         USE infotrac_phy, ONLY: index_trac,niso,ntraciso,ntraceurs_zone
    25472501#ifdef ISOVERIF
    25482502        USE isotopes_verif_mod
    … …  
    26252579        subroutine iso_verif_traceur_jbid_pos2(x,q)
    26262580        USE isotopes_mod, ONLY: bidouille_anti_divergence,iso_eau,ridicule
    2627         USE infotrac_phy, ONLY: index_trac,niso,ntraciso,ntraceurs_zone
    26282581#ifdef ISOVERIF
    26292582        use isotopes_verif_mod
    … …  
    26962649        subroutine iso_verif_traceur_jbid_vect1D(x,n)
    26972650        USE isotopes_mod, ONLY: bidouille_anti_divergence,iso_eau,ridicule
    2698         USE infotrac_phy, ONLY: index_trac,niso,ntraciso,ntraceurs_zone
    26992651        implicit none
    27002652       
    … …  
    27392691
    27402692        subroutine iso_verif_traceur_pbidouille(x,err_msg)
    2741         USE infotrac_phy, ONLY: ntraciso
    27422693        use isotopes_verif_mod
    27432694        implicit none
    … …  
    27652716
    27662717        function iso_verif_traceur_pbid_ns(x,err_msg)
    2767         USE infotrac_phy, ONLY: ntraciso
    27682718        use isotopes_mod, ONLY: iso_HDO,bidouille_anti_divergence
    27692719        use isotrac_mod, only: ridicule_trac
    … …  
    28282778
    28292779        subroutine iso_verif_traceur_pbid_vect(x,n,m,err_msg)
    2830         USE infotrac_phy, ONLY: ntraciso
    28312780        use isotopes_mod, ONLY: iso_HDO,bidouille_anti_divergence
    28322781        use isotopes_verif_mod
Note: See TracChangeset for help on using the changeset viewer.