Ignore:
Timestamp:
Sep 10, 2024, 4:25:29 PM (10 days ago)
Author:
abarral
Message:

(WIP) Replace REPROBUS CPP KEY by logical
properly name modules

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/dyn3d/vlsplt.F90

    r5159 r5182  
    44
    55SUBROUTINE vlsplt(q, pente_max, masse, w, pbaru, pbarv, pdt, iq)
    6   USE infotrac, ONLY: nqtot, tracers
     6  USE lmdz_infotrac, ONLY: nqtot, tracers
    77  USE lmdz_ssum_scopy, ONLY: scopy
    88
    … …  
    107107END SUBROUTINE vlsplt
    108108RECURSIVE SUBROUTINE vlx(q, pente_max, masse, u_m, iq)
    109   USE infotrac, ONLY: nqtot, tracers, & ! CRisi
     109  USE lmdz_infotrac, ONLY: nqtot, tracers, & ! CRisi
    110110          min_qParent, min_qMass, min_ratio ! MVals et CRisi
    111111  USE lmdz_iniprint, ONLY: lunout, prt_level
    … …  
    423423END SUBROUTINE vlx
    424424RECURSIVE SUBROUTINE vly(q, pente_max, masse, masse_adv_v, iq)
    425   USE infotrac, ONLY: nqtot, tracers, & ! CRisi
     425  USE lmdz_infotrac, ONLY: nqtot, tracers, & ! CRisi
    426426          min_qParent, min_qMass, min_ratio ! MVals et CRisi
    427427  USE lmdz_ssum_scopy, ONLY: ssum
    … …  
    749749END SUBROUTINE vly
    750750RECURSIVE SUBROUTINE vlz(q, pente_max, masse, w, iq)
    751   USE infotrac, ONLY: nqtot, tracers, & ! CRisi
     751  USE lmdz_infotrac, ONLY: nqtot, tracers, & ! CRisi
    752752          min_qParent, min_qMass, min_ratio ! MVals et CRisi
    753753
Note: See TracChangeset for help on using the changeset viewer.