Ignore:
Timestamp:
Oct 28, 2024, 3:28:53 PM (4 days ago)
Author:
abarral
Message:

Turn YOECUMF.h into a module
Fix USE in fxy_new_mod_h.f90

Location:
LMDZ6/trunk/libf/phylmd/Dust
Files:
7 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/Dust/bcscav_spl.f90

    r5285 r5289  
    33  USE dimphy
    44  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    5 USE yomcst_mod_h
     5  USE yomcst_mod_h
     6  USE yoecumf_mod_h
    67IMPLICIT NONE
    78  !=====================================================================
    … …  
    1314
    1415  INCLUDE "chem.h"
    15 
    16   INCLUDE "YOECUMF.h"
    1716  !
    1817  REAL :: pdtime, alpha_r, alpha_s, R_r, R_s

  • LMDZ6/trunk/libf/phylmd/Dust/gastoparticle.f90

    r5285 r5289  
    44  !nhl     .                         fluxso4chem, flux_sparam_sulf,
    55
    6   USE dimphy
     6USE yoecumf_mod_h
     7    USE dimphy
    78  USE infotrac
    89   ! USE indice_sol_mod
    … …  
    1617  INCLUDE "chem_spla.h"
    1718
    18   INCLUDE "YOECUMF.h"
    1919  !
    2020  REAL :: pdtphys

  • LMDZ6/trunk/libf/phylmd/Dust/inscav_spl.f90

    r5285 r5289  
    44  USE dimphy
    55  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    6 USE yomcst_mod_h
     6  USE yomcst_mod_h
     7  USE yoecumf_mod_h
    78IMPLICIT NONE
    89  !=====================================================================
    … …  
    1415
    1516  INCLUDE "chem.h"
    16 
    17   INCLUDE "YOECUMF.h"
    1817  !
    1918  INTEGER :: it

  • LMDZ6/trunk/libf/phylmd/Dust/lsc_scav_orig.f90

    r5285 r5289  
    1414
    1515  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    16 USE yomcst_mod_h
     16  USE yomcst_mod_h
     17  USE yoecumf_mod_h
    1718IMPLICIT NONE
    1819!=====================================================================
    … …  
    2526
    2627  include "chem.h"
    27 
    28   include "YOECUMF.h"
    2928
    3029  REAL,INTENT(IN)                        :: pdtime ! time step (s)

  • LMDZ6/trunk/libf/phylmd/Dust/lsc_scav_spl.f90

    r5285 r5289  
    1515  USE iophy
    1616  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    17 USE yomcst_mod_h
     17  USE yomcst_mod_h
     18  USE yoecumf_mod_h
    1819IMPLICIT NONE
    1920!=====================================================================
    … …  
    2728
    2829  include "chem.h"
    29 
    30   include "YOECUMF.h"
    3130
    3231  REAL,INTENT(IN)                        :: pdtime ! time step (s)

  • LMDZ6/trunk/libf/phylmd/Dust/seasalt.f90

    r5285 r5289  
    44SUBROUTINE seasalt(v_10m, u_10m, pct_ocean, lmt_sea_salt)
    55
    6   USE dimphy
     6USE yoecumf_mod_h
     7    USE dimphy
    78  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    89USE yomcst_mod_h
    … …  
    1314  INCLUDE "chem_spla.h"
    1415
    15   INCLUDE "YOECUMF.h"
    1616  !
    1717  INTEGER :: i, bin                 !local variables

  • LMDZ6/trunk/libf/phylmd/Dust/sediment_mod.f90

    r5285 r5289  
    88  !nhl     .                                       xlon,xlat,
    99  !
    10    USE dimphy
     10USE yoecumf_mod_h
     11     USE dimphy
    1112   USE infotrac
    1213  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    … …  
    1819    ! INCLUDE "dimphy.h"
    1920
    20   INCLUDE "YOECUMF.h"
    2121  !
    2222   REAL :: RHcl(klon,klev)     ! humidite relative ciel clair
Note: See TracChangeset for help on using the changeset viewer.