Ignore:
Timestamp:
Jul 29, 2024, 9:59:33 AM (3 months ago)
Author:
abarral
Message:

Put nuage.h, flux_arp.h, compbl.h into modules
Move unused phylmd/ini_hist* to obsolete

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

Legend:

Unmodified
Added
Removed

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

    r5136 r5139  
    5656#endif               
    5757            )
     58  USE lmdz_compbl, ONLY: iflag_pbl, iflag_pbl_split, iflag_order2_sollw, ifl_pbltree
    5859#ifdef ISOVERIF
    5960USE isotopes_mod, ONLY: iso_eau,iso_HDO
    … …  
    126127!****************************************************************************************
    127128    INCLUDE "YOMCST.h"
    128     INCLUDE "compbl.h"   
    129    
     129
    130130#ifdef ISO
    131131#ifdef ISOVERIF
    … …  
    498498       )
    499499
     500  USE lmdz_compbl, ONLY: iflag_pbl, iflag_pbl_split, iflag_order2_sollw, ifl_pbltree
    500501#ifdef ISOVERIF
    501502USE infotrac_phy, ONLY: nzone
    … …  
    555556!****************************************************************************************
    556557    INCLUDE "YOMCST.h"
    557     INCLUDE "compbl.h"       
    558 
    559558!****************************************************************************************
    560559! 1)

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

    r5132 r5139  
    35883588  USE lmdz_print_control, ONLY: prt_level, lunout
    35893589  USE lmdz_abort_physic, ONLY: abort_physic
     3590  USE lmdz_nuage_params
    35903591#ifdef ISO
    35913592    USE infotrac_phy, ONLY: ntraciso=>ntiso
    … …  
    36163617  include "cv3param.h"
    36173618  include "cvflag.h"
    3618   include "nuage.h"
    36193619
    36203620!inputs:

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

    r5137 r5139  
    1572015720        iso_HTO
    1572115721        USE lmdz_clesphys
     15722        USE lmdz_compbl, ONLY: iflag_pbl, iflag_pbl_split, iflag_order2_sollw, ifl_pbltree
    1572215723#ifdef ISOVERIF
    1572315724  USE isotopes_verif_mod
    … …  
    1572815729
    1572915730 include "dimsoil.h"
    15730  include "compbl.h"
    1573115731
    1573215732!#ifdef ISOVERIF
    … …  
    1589415894&       Rdefault,iso_O17,ridicule,ridicule_qsol
    1589515895USE lmdz_clesphys
     15896USE lmdz_compbl, ONLY: iflag_pbl, iflag_pbl_split, iflag_order2_sollw, ifl_pbltree
    1589615897#ifdef ISOVERIF
    1589715898  USE isotopes_verif_mod
    … …  
    1590315904
    1590415905 include "dimsoil.h"
    15905  include "compbl.h"
    1590615906
    1590715907        ! arguments 
    … …  
    1627516275#endif
    1627616276USE lmdz_clesphys
     16277USE lmdz_compbl, ONLY: iflag_pbl, iflag_pbl_split, iflag_order2_sollw, ifl_pbltree
     16278
    1627716279   IMPLICIT NONE
    1627816280
    1627916281 include "dimsoil.h"
    16280  include "compbl.h"
    1628116282
    1628216283   REAL, INTENT(IN) ::             snow     (klon,nbsrf)

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

    r5138 r5139  
    1 link ../phylmd/compbl.h
     1link ../phylmd/lmdz_compbl.f90

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

    r5138 r5139  
    1 link ../phylmd/flux_arp.h
     1link ../phylmd/lmdz_flux_arp.f90

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

    r5138 r5139  
    1 link ../phylmd/nuage.h
     1link ../phylmd/lmdz_nuage_params.f90

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

    r5137 r5139  
    5353  USE lmdz_alpale
    5454  USE lmdz_clesphys
     55  USE lmdz_compbl, ONLY: iflag_pbl, iflag_pbl_split, iflag_order2_sollw, ifl_pbltree
    5556#ifdef ISO
    5657  USE infotrac_phy, ONLY: niso
    … …  
    6869  !======================================================================
    6970  include "dimsoil.h"
    70   include "compbl.h"
    7171  include "YOMCST.h"
    7272  !======================================================================

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

    r5137 r5139  
    5454  USE lmdz_alpale
    5555  USE lmdz_clesphys
     56  USE lmdz_compbl, ONLY: iflag_pbl, iflag_pbl_split, iflag_order2_sollw, ifl_pbltree
    5657
    5758  IMPLICIT NONE
    5859
    5960  include "dimsoil.h"
    60   include "compbl.h"
    6161  !======================================================================
    6262  CHARACTER*(*) fichnom
    … …  
    511511      USE lmdz_alpale
    512512      USE lmdz_clesphys
     513      USE lmdz_compbl, ONLY: iflag_pbl, iflag_pbl_split, iflag_order2_sollw, ifl_pbltree
    513514
    514515        IMPLICIT NONE
    … …  
    517518
    518519 include "dimsoil.h"
    519  include "compbl.h"
    520520      ! inputs
    521521      !REAL xtsol(niso,klon)

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

    r5137 r5139  
    420420       USE lmdz_alpale
    421421       USE lmdz_clesphys
     422       USE lmdz_nuage_params
     423    USE lmdz_compbl, ONLY: iflag_pbl, iflag_pbl_split, iflag_order2_sollw, ifl_pbltree
    422424
    423425    IMPLICIT NONE
    … …  
    12701272    !IM 100106 BEG : pouvoir sortir les ctes de la physique
    12711273    include "conema3.h"
    1272     include "nuage.h"
    1273     include "compbl.h"
    12741274    !IM 100106 END : pouvoir sortir les ctes de la physique
    12751275
Note: See TracChangeset for help on using the changeset viewer.