Changeset 5289 for LMDZ6/trunk


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

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

Location:
LMDZ6/trunk/libf
Files:
18 edited
2 moved

Legend:

Unmodified
Added
Removed
  • LMDZ6/trunk/libf/grid/fxy_new_mod_h.f90

    r5287 r5289  
    55  USE serre_mod, ONLY: pxo, pyo, alphax, alphay, transx, transy
    66  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    7   USE lmdz_paramet
     7  USE paramet_mod_h
    88  IMPLICIT NONE; PRIVATE
    99  PUBLIC fx, fxprim, fy, fyprim
  • 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
  • LMDZ6/trunk/libf/phylmd/conflx.f90

    r5285 r5289  
    206206                                                              ! ldcum, ktype,
    207207    pmfu, pmfd, pen_u, pde_u, pen_d, pde_d, dt_con, dq_con, pmflxr, pmflxs)
    208 USE yoethf_mod_h
     208USE yoecumf_mod_h
     209  USE yoethf_mod_h
    209210    USE dimphy
    210211  USE yomcst_mod_h
     
    212213  ! ------------------------------------------------------------------
    213214
    214   include "YOECUMF.h"
    215215  ! ----------------------------------------------------------------
    216216  REAL pten(klon, klev), pqen(klon, klev), pqsen(klon, klev)
     
    683683    pmfub, pentr, pmfus, pmfuq, pmful, plude, pdmfup, kcbot, kctop, kctop0, &
    684684    kcum, pen_u, pde_u)
    685 USE yoethf_mod_h
     685USE yoecumf_mod_h
     686  USE yoethf_mod_h
    686687    USE dimphy
    687688  USE yomcst_mod_h
     
    692693  ! ----------------------------------------------------------------------
    693694
    694   include "YOECUMF.h"
    695695
    696696  REAL pdtime
     
    983983    pmfds, pmfuq, pmfdq, pmful, plude, pdmfup, pdmfdp, pten, prfl, psfl, &
    984984    pdpmel, ktopm2, pmflxr, pmflxs)
    985 USE yoethf_mod_h
     985USE yoecumf_mod_h
     986  USE yoethf_mod_h
    986987    USE dimphy
    987988  USE print_control_mod, ONLY: prt_level
     
    993994  ! ----------------------------------------------------------------------
    994995
    995   include "YOECUMF.h"
    996996
    997997  REAL cevapcu(klon, klev)
     
    12281228SUBROUTINE flxdtdq(pdtime, ktopm2, paph, ldcum, pten, pmfus, pmfds, pmfuq, &
    12291229    pmfdq, pmful, pdmfup, pdmfdp, pdpmel, dt_con, dq_con)
    1230 USE yoethf_mod_h
     1230USE yoecumf_mod_h
     1231  USE yoethf_mod_h
    12311232    USE dimphy
    12321233  USE yomcst_mod_h
     
    12361237  ! ----------------------------------------------------------------------
    12371238
    1238   include "YOECUMF.h"
    12391239  ! -----------------------------------------------------------------
    12401240  LOGICAL llo1
     
    12911291SUBROUTINE flxdlfs(ptenh, pqenh, pgeoh, paph, ptu, pqu, ldcum, kcbot, kctop, &
    12921292    pmfub, prfl, ptd, pqd, pmfd, pmfds, pmfdq, pdmfdp, kdtop, lddraf)
    1293 USE yoethf_mod_h
     1293USE yoecumf_mod_h
     1294  USE yoethf_mod_h
    12941295    USE dimphy
    12951296  USE yomcst_mod_h
     
    13121313  ! ----------------------------------------------------------------------
    13131314
    1314   include "YOECUMF.h"
    13151315
    13161316  REAL ptenh(klon, klev)
     
    14021402  USE yomcst_mod_h
    14031403  USE yoethf_mod_h
     1404  USE yoecumf_mod_h
    14041405IMPLICIT NONE
    14051406
     
    14191420
    14201421  ! ----------------------------------------------------------------------
    1421 
    1422   include "YOECUMF.h"
    14231422
    14241423  REAL ptenh(klon, klev), pqenh(klon, klev)
     
    15871586END SUBROUTINE flxadjtq
    15881587SUBROUTINE flxsetup
    1589   IMPLICIT NONE
     1588USE yoecumf_mod_h
     1589    IMPLICIT NONE
    15901590
    15911591  ! THIS ROUTINE DEFINES DISPOSABLE PARAMETERS FOR MASSFLUX SCHEME
    15921592
    1593   include "YOECUMF.h"
    15941593
    15951594  entrpen = 1.0E-4 ! ENTRAINMENT RATE FOR PENETRATIVE CONVECTION
  • LMDZ6/trunk/libf/phylmd/cvltr.f90

    r5285 r5289  
    1010           qPa,qMel,qTrdi,dtrcvMA,Mint,                   &
    1111           zmfd1a,zmfphi2,zmfdam)
    12 USE conema3_mod_h
     12USE yoecumf_mod_h
     13  USE conema3_mod_h
    1314    USE IOIPSL
    1415  USE dimphy
     
    2324
    2425
    25   include "YOECUMF.h"
    2626
    2727! Entree
  • LMDZ6/trunk/libf/phylmd/cvltr_noscav.f90

    r5285 r5289  
    33!
    44SUBROUTINE cvltr_noscav(it,pdtime,da, phi, mp,wght_cvfd,paprs,pplay,x,upd,dnd,dx)
    5   USE dimphy
     5USE yoecumf_mod_h
     6    USE dimphy
    67  USE infotrac_phy, ONLY : nbtr
    78  USE yomcst_mod_h
     
    1213!=====================================================================
    1314
    14   include "YOECUMF.h"
    1515
    1616! Entree
  • LMDZ6/trunk/libf/phylmd/cvltr_scav.f90

    r5285 r5289  
    1111     zmfd1a,zmfphi2,zmfdam)
    1212  !
    13 USE conema3_mod_h
     13USE yoecumf_mod_h
     14  USE conema3_mod_h
    1415    USE IOIPSL
    1516  USE dimphy
     
    2425
    2526
    26   include "YOECUMF.h"
    2727  include "chem.h"
    2828
  • LMDZ6/trunk/libf/phylmd/cvltr_spl.f90

    r5285 r5289  
    1111           qPa,qMel,qTrdi,dtrcvMA,Mint,                   &
    1212           zmfd1a,zmfphi2,zmfdam)
    13 USE conema3_mod_h
     13USE yoecumf_mod_h
     14  USE conema3_mod_h
    1415    USE IOIPSL
    1516  USE dimphy
     
    2425
    2526
    26   include "YOECUMF.h"
    2727  include "chem.h"
    2828
  • LMDZ6/trunk/libf/phylmd/cvltrorig.f90

    r5285 r5289  
    33!
    44SUBROUTINE cvltrorig(it,pdtime,da, phi, mp,paprs,pplay,x,upd,dnd,dx)
    5   USE dimphy
     5USE yoecumf_mod_h
     6    USE dimphy
    67  USE infotrac_phy, ONLY : nbtr
    78  USE yomcst_mod_h
     
    1213!=====================================================================
    1314
    14   include "YOECUMF.h"
    1515
    1616! Entree
  • LMDZ6/trunk/libf/phylmd/flxtr.f90

    r5285 r5289  
    66  USE dimphy
    77  USE yomcst_mod_h
     8  USE yoecumf_mod_h
    89IMPLICIT NONE
    910  ! =====================================================================
     
    2627  ! =====================================================================
    2728
    28 
    29   include "YOECUMF.h"
    30 
    3129  REAL pdtime
    3230  ! --les flux sont definis au 1/2 niveaux
  • LMDZ6/trunk/libf/phylmd/init_be.f90

    r5285 r5289  
    77  USE indice_sol_mod
    88  USE geometry_mod, ONLY : longitude, latitude
    9    
    109  USE yomcst_mod_h
     10  USE yoecumf_mod_h
    1111IMPLICIT NONE
    1212!=====================================================================
     
    1919! last modified by : A. Jamelot (LMD/CEA)  04/03/2009
    2020!=====================================================================
    21 
    22 
    23   INCLUDE "YOECUMF.h"
    24 
    2521!
    2622! Input Arguments
  • LMDZ6/trunk/libf/phylmd/lsc_scav.f90

    r5285 r5289  
    1313  USE iophy
    1414  USE yomcst_mod_h
     15  USE yoecumf_mod_h
    1516IMPLICIT NONE
    1617!=====================================================================
     
    2223
    2324  include "chem.h"
    24 
    25   include "YOECUMF.h"
    2625
    2726! inputs
  • LMDZ6/trunk/libf/phylmd/nflxtr.f90

    r5285 r5289  
    55  USE dimphy
    66  USE yomcst_mod_h
     7  USE yoecumf_mod_h
    78IMPLICIT NONE
    89!=====================================================================
     
    2223!=====================================================================
    2324!
    24 
    25   include "YOECUMF.h"
    2625
    2726  REAL,INTENT(IN) :: pdtime  ! pdtphys
  • LMDZ6/trunk/libf/phylmd/yoecumf_mod_h.f90

    r5288 r5289  
    1 !
    2 ! $Id$
    3 !
    4 !  ATTENTION!!!!: ce fichier include est compatible format fixe/format libre
    5 !                 veillez n'utiliser que des ! pour les commentaires
    6 !                 et bien positionner les & des lignes de continuation
    7 !                 (les placer en colonne 6 et en colonne 73)
    8 !
    9 !     ----------------------------------------------------------------
    10 !*    *COMMON* *YOECUMF* - PARAMETERS FOR CUMULUS MASSFLUX SCHEME
    11 !     ----------------------------------------------------------------
    12 !
    13       COMMON /YOECUMF/                                                  &
    14      &                 LMFPEN,LMFSCV,LMFMID,LMFDD,LMFDUDV,              &
    15      &                 ENTRPEN,ENTRSCV,ENTRMID,ENTRDD,CMFCTOP,          &
    16      &                 CMFCMAX,CMFCMIN,CMFDEPS,RHCDD,CPRCON
     1MODULE yoecumf_mod_h
     2  !     ----------------------------------------------------------------
     3  !*    *COMMON* *YOECUMF* - PARAMETERS FOR CUMULUS MASSFLUX SCHEME
     4  !     ----------------------------------------------------------------
    175
    18       LOGICAL          LMFPEN,LMFSCV,LMFMID,LMFDD,LMFDUDV
    19       REAL ENTRPEN, ENTRSCV, ENTRMID, ENTRDD
    20       REAL CMFCTOP, CMFCMAX, CMFCMIN, CMFDEPS, RHCDD, CPRCON
    21 !$OMP THREADPRIVATE(/YOECUMF/)
    22 !
    23 !*if (DOC,declared) <> 'UNKNOWN'
    24 !*    *COMMON* *YOECUMF* - PARAMETERS FOR CUMULUS MASSFLUX SCHEME
    25 !
    26 !     M.TIEDTKE       E. C. M. W. F.      18/1/89
    27 !
    28 !     NAME      TYPE      PURPOSE
    29 !     ----      ----      -------
    30 !
    31 !     LMFPEN    LOGICAL  TRUE IF PENETRATIVE CONVECTION IS SWITCHED ON
    32 !     LMFSCV    LOGICAL  TRUE IF SHALLOW     CONVECTION IS SWITCHED ON
    33 !     LMFMID    LOGICAL  TRUE IF MIDLEVEL    CONVECTION IS SWITCHED ON
    34 !     LMFDD     LOGICAL  TRUE IF CUMULUS DOWNDRAFT      IS SWITCHED ON
    35 !     LMFDUDV   LOGICAL  TRUE IF CUMULUS FRICTION       IS SWITCHED ON
    36 !     ENTRPEN   REAL     ENTRAINMENT RATE FOR PENETRATIVE CONVECTION
    37 !     ENTRSCV   REAL     ENTRAINMENT RATE FOR SHALLOW CONVECTION
    38 !     ENTRMID   REAL     ENTRAINMENT RATE FOR MIDLEVEL CONVECTION
    39 !     ENTRDD    REAL     ENTRAINMENT RATE FOR CUMULUS DOWNDRAFTS
    40 !     CMFCTOP   REAL     RELAT. CLOUD MASSFLUX AT LEVEL ABOVE NONBUOYANC
    41 !     CMFCMAX   REAL     MAXIMUM MASSFLUX VALUE ALLOWED FOR
    42 !     CMFCMIN   REAL     MINIMUM MASSFLUX VALUE (FOR SAFETY)
    43 !     CMFDEPS   REAL     FRACTIONAL MASSFLUX FOR DOWNDRAFTS AT LFS
    44 !     RHCDD     REAL     RELATIVE SATURATION IN DOWNDRAFTS
    45 !     CPRCON    REAL     COEFFICIENTS FOR DETERMINING CONVERSION
    46 !                        FROM CLOUD WATER TO RAIN
    47 !*ifend
    48 !     ----------------------------------------------------------------
     6  IMPLICIT NONE; PRIVATE
     7  PUBLIC ENTRPEN, ENTRSCV, ENTRMID, ENTRDD, CMFCTOP, CMFCMAX, CMFCMIN, CMFDEPS, RHCDD, &
     8          CPRCON, LMFPEN, LMFSCV, LMFMID, LMFDD, LMFDUDV
     9
     10  LOGICAL          LMFPEN, LMFSCV, LMFMID, LMFDD, LMFDUDV
     11  REAL ENTRPEN, ENTRSCV, ENTRMID, ENTRDD
     12  REAL CMFCTOP, CMFCMAX, CMFCMIN, CMFDEPS, RHCDD, CPRCON
     13  !$OMP THREADPRIVATE(ENTRPEN, ENTRSCV, ENTRMID, ENTRDD, CMFCTOP, CMFCMAX, CMFCMIN, CMFDEPS, RHCDD, &
     14  !$OMP      CPRCON, LMFPEN, LMFSCV, LMFMID, LMFDD, LMFDUDV)
     15
     16  !*if (DOC,declared) <> 'UNKNOWN'
     17  !*    *COMMON* *YOECUMF* - PARAMETERS FOR CUMULUS MASSFLUX SCHEME
     18
     19  !     M.TIEDTKE       E. C. M. W. F.      18/1/89
     20
     21  !     NAME      TYPE      PURPOSE
     22  !     ----      ----      -------
     23
     24  !     LMFPEN    LOGICAL  TRUE IF PENETRATIVE CONVECTION IS SWITCHED ON
     25  !     LMFSCV    LOGICAL  TRUE IF SHALLOW     CONVECTION IS SWITCHED ON
     26  !     LMFMID    LOGICAL  TRUE IF MIDLEVEL    CONVECTION IS SWITCHED ON
     27  !     LMFDD     LOGICAL  TRUE IF CUMULUS DOWNDRAFT      IS SWITCHED ON
     28  !     LMFDUDV   LOGICAL  TRUE IF CUMULUS FRICTION       IS SWITCHED ON
     29  !     ENTRPEN   REAL     ENTRAINMENT RATE FOR PENETRATIVE CONVECTION
     30  !     ENTRSCV   REAL     ENTRAINMENT RATE FOR SHALLOW CONVECTION
     31  !     ENTRMID   REAL     ENTRAINMENT RATE FOR MIDLEVEL CONVECTION
     32  !     ENTRDD    REAL     ENTRAINMENT RATE FOR CUMULUS DOWNDRAFTS
     33  !     CMFCTOP   REAL     RELAT. CLOUD MASSFLUX AT LEVEL ABOVE NONBUOYANC
     34  !     CMFCMAX   REAL     MAXIMUM MASSFLUX VALUE ALLOWED FOR
     35  !     CMFCMIN   REAL     MINIMUM MASSFLUX VALUE (FOR SAFETY)
     36  !     CMFDEPS   REAL     FRACTIONAL MASSFLUX FOR DOWNDRAFTS AT LFS
     37  !     RHCDD     REAL     RELATIVE SATURATION IN DOWNDRAFTS
     38  !     CPRCON    REAL     COEFFICIENTS FOR DETERMINING CONVERSION
     39  !                        FROM CLOUD WATER TO RAIN
     40  !*ifend
     41  !     ----------------------------------------------------------------
     42END MODULE yoecumf_mod_h
  • LMDZ6/trunk/libf/phylmdiso/yoecumf_mod_h.f90

    r5288 r5289  
    1 link ../phylmd/YOECUMF.h
     1link ../phylmd/yoecumf_mod_h.f90
Note: See TracChangeset for help on using the changeset viewer.