Changeset 5296 for LMDZ6


Ignore:
Timestamp:
Oct 30, 2024, 2:05:33 PM (4 weeks ago)
Author:
abarral
Message:

Turn compbl.h into a module
Move calcul_REGDYN.h to obsolete
Create phys_constants_mod.f90

Location:
LMDZ6/trunk/libf
Files:
1 added
1 deleted
29 edited
3 moved

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/dynphy_lonlat/phylmd/etat0phys_netcdf.f90

    r5285 r5296  
    9696       ratqs_inter_
    9797  USE alpale_mod
     98  USE compbl_mod_h
    9899  IMPLICIT NONE
    99100!-------------------------------------------------------------------------------
    … …  
    128129  REAL    :: alp_offset
    129130  LOGICAL :: filtre_oro=.false.
    130 
    131   INCLUDE "compbl.h"
    132131
    133132  deg2rad= pi/180.0

  • LMDZ6/trunk/libf/phylmd/Dust/phys_output_write_spl_mod.F90

    r5285 r5296  
    8989    ! defined and initialised mainly in phytracr_spl_mod.F90 (SPLA tracers, subroutine phytracr_spl_out_init)
    9090
    91 USE alpale_mod
     91USE compbl_mod_h
     92    USE alpale_mod
    9293        USE dimphy, ONLY: klon, klev, klevp1
    9394    USE ocean_slab_mod, ONLY: nslay
    … …  
    395396
    396397    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    397 USE yomcst_mod_h
     398    USE yomcst_mod_h
    398399    USE clesphys_mod_h
    399400    USE iniprint_mod_h
     401    USE phys_constants_mod, ONLY: dobson_u
    400402IMPLICIT NONE
    401403
    402404!   INCLUDE "temps.h"
    403     INCLUDE "compbl.h"
    404405
    405406    ! Input
    … …  
    433434    INTEGER, DIMENSION(iim*jjmp1)  :: ndex2d
    434435    INTEGER, DIMENSION(iim*jjmp1*klev) :: ndex3d
    435     REAL, PARAMETER :: dobson_u = 2.1415e-05 ! Dobson unit, in kg m-2
    436436    REAL :: missing_val
    437437    REAL, PARAMETER :: un_jour=86400.

  • LMDZ6/trunk/libf/phylmd/climb_hq_mod.f90

    r5285 r5296  
    55!
    66  USE dimphy
    7 
     7  USE compbl_mod_h
    88  IMPLICIT NONE
    99  PRIVATE
    … …  
    8181    REAL                                     :: delz, pkh
    8282    INTEGER                                  :: k, i, ierr
    83 ! Include
    84 !****************************************************************************************
    85     INCLUDE "compbl.h"
    86 
    8783
    8884!****************************************************************************************
    … …  
    328324!   
    329325USE yomcst_mod_h
     326USE compbl_mod_h
    330327! Input arguments
    331328!****************************************************************************************
    … …  
    353350    REAL, DIMENSION(klon)                    :: psref         
    354351    INTEGER                                  :: k, i, ierr
    355  
    356 ! Include
    357 !****************************************************************************************
    358     INCLUDE "compbl.h"
    359 
    360352!****************************************************************************************
    361353! 1)

  • LMDZ6/trunk/libf/phylmd/climb_qbs_mod.f90

    r5285 r5296  
    3333! the index of the vertical layer.
    3434USE yomcst_mod_h
     35USE compbl_mod_h
    3536! Input arguments
    3637!****************************************************************************************
    … …  
    6162    REAL                                     :: delz, pkh
    6263    INTEGER                                  :: k, i, ierr
    63 ! Include
    64 !****************************************************************************************
    65     INCLUDE "compbl.h"
    66 
    67 
    6864!****************************************************************************************
    6965! 1)
    … …  
    257253!   
    258254USE yomcst_mod_h
     255USE compbl_mod_h
    259256! Input arguments
    260257!****************************************************************************************
    … …  
    282279    REAL, DIMENSION(klon)                    :: psref         
    283280    INTEGER                                  :: k, i, ierr
    284  
    285 ! Include
    286 !****************************************************************************************
    287     INCLUDE "compbl.h"
    288 
    289281!****************************************************************************************
    290282! 1)

  • LMDZ6/trunk/libf/phylmd/climb_wind_mod.f90

    r5285 r5296  
    8686!
    8787USE yomcst_mod_h
     88USE compbl_mod_h
    8889! Input arguments
    8990!****************************************************************************************
    … …  
    119120    REAL, DIMENSION(klon)                    :: u1lay, v1lay
    120121    INTEGER                                  :: k, i
    121 
    122 ! Include
    123 !****************************************************************************************
    124     INCLUDE "compbl.h"
    125 
    126122!****************************************************************************************
    127123! Initialize module
    … …  
    273269!****************************************************************************************
    274270USE yomcst_mod_h
     271USE compbl_mod_h
    275272! Input arguments
    276273!****************************************************************************************
    … …  
    296293    REAL, DIMENSION(klon,klev)              :: u_new, v_new
    297294    INTEGER                                 :: k, i
    298 
    299 ! Include
    300 !****************************************************************************************
    301     INCLUDE "compbl.h"
    302    
    303 !
    304295!****************************************************************************************
    305296

  • LMDZ6/trunk/libf/phylmd/coef_diff_turb_mod.f90

    r5285 r5296  
    2222    USE yomcst_mod_h
    2323    USE yoethf_mod_h
     24    USE compbl_mod_h
    2425!
    2526! Calculate coefficients(ycoefm, ycoefh) for turbulent diffusion in the
    … …  
    6061    REAL, DIMENSION(klon,klev+1)               :: yzlev, q2diag, ykmm, ykmn, ykmq
    6162    REAL, DIMENSION(klon)                      :: yustar
    62 
    63 ! Include
    64 !****************************************************************************************
    65     INCLUDE "compbl.h"
    6663
    6764    ykmm = 0 !ym missing init
    … …  
    212209    USE print_control_mod, ONLY: prt_level, lunout
    213210    USE yoethf_mod_h
     211    USE compbl_mod_h
    214212
    215213!======================================================================
    … …  
    233231!======================================================================
    234232    INCLUDE "FCTTRE.h"
    235     INCLUDE "compbl.h"
    236233!
    237234! Arguments:

  • LMDZ6/trunk/libf/phylmd/compbl_mod_h.f90

    r5295 r5296  
    1       !
    2       ! $Header$
    3       !
    4 !jyg+al1<
    5 !!      integer iflag_pbl,iflag_pbl_split
    6 !!      common/compbl/iflag_pbl,iflag_pbl_split
    7 !!FC      integer iflag_pbl, iflag_pbl_split, iflag_order2_sollw
    8 !FC      common/compbl/iflag_pbl, iflag_pbl_split, iflag_order2_sollw
    9       integer iflag_pbl, iflag_pbl_split, iflag_order2_sollw, ifl_pbltree
    10       common/compbl/iflag_pbl, iflag_pbl_split, iflag_order2_sollw, ifl_pbltree
    11 !>jyg+al1
    12 !$OMP THREADPRIVATE(/compbl/)
     1! Replaces compbl.h
     2
     3MODULE compbl_mod_h
     4  IMPLICIT NONE; PRIVATE
     5  PUBLIC iflag_pbl, iflag_pbl_split, iflag_order2_sollw, ifl_pbltree
     6
     7  !!      integer iflag_pbl,iflag_pbl_split
     8  !!      common/compbl/iflag_pbl,iflag_pbl_split
     9  !!FC      integer iflag_pbl, iflag_pbl_split, iflag_order2_sollw
     10  !FC      common/compbl/iflag_pbl, iflag_pbl_split, iflag_order2_sollw
     11  INTEGER iflag_pbl, iflag_pbl_split, iflag_order2_sollw, ifl_pbltree
     12  !$OMP THREADPRIVATE(iflag_pbl, iflag_pbl_split, iflag_order2_sollw, ifl_pbltree)
     13
     14  !>jyg+al1
     15
     16END MODULE compbl_mod_h

  • LMDZ6/trunk/libf/phylmd/conf_phys_m.f90

    r5285 r5296  
    2424       alp_offset)
    2525
    26 USE alpale_mod
     26USE compbl_mod_h
     27    USE alpale_mod
    2728    USE conema3_mod_h
    2829        USE yomcst_mod_h
    … …  
    4647
    4748    !IM : on inclut/initialise les taux de CH4, N2O, CFC11 et CFC12
    48     INCLUDE "compbl.h"
    4949    INCLUDE "comsoil.h"
    5050    INCLUDE "YOEGWD.h"

  • LMDZ6/trunk/libf/phylmd/create_etat0_unstruct_mod.f90

    r5284 r5296  
    9595  USE clesphys_mod_h
    9696  USE alpale_mod
     97  USE compbl_mod_h
    9798  IMPLICIT NONE
    9899
    … …  
    112113    REAL,    DIMENSION(klon_mpi)             :: cell_area_mpi
    113114    REAL,    DIMENSION(klon_mpi,nbsrf)       :: pctsrf_mpi
    114 
    115     INCLUDE "compbl.h"
    116115
    117116    INTEGER :: ji,j,i

  • LMDZ6/trunk/libf/phylmd/dyn1d/old_lmdz1d.f90

    r5285 r5296  
    55      SUBROUTINE old_lmdz1d
    66
    7    USE clesphys_mod_h
     7USE compbl_mod_h
     8         USE clesphys_mod_h
    89      USE ioipsl, only: ju2ymds, ymds2ju, ioconf_calendar,getin
    910   USE phys_state_var_mod, ONLY : phys_state_var_init, phys_state_var_end, &
    … …  
    6465      INCLUDE "fcg_gcssold.h"
    6566!!!      INCLUDE "fbforcing.h"
    66       INCLUDE "compbl.h"
    6767
    6868!=====================================================================

  • LMDZ6/trunk/libf/phylmd/dyn1d/scm.f90

    r5285 r5296  
    11SUBROUTINE scm
    22
    3    USE clesphys_mod_h
     3USE compbl_mod_h
     4         USE clesphys_mod_h
    45      USE ioipsl, only: ju2ymds, ymds2ju, ioconf_calendar,getin
    56   USE phys_state_var_mod, ONLY : phys_state_var_init, phys_state_var_end, &
    … …  
    5960      INCLUDE "tsoilnudge.h"
    6061      INCLUDE "fcg_gcssold.h"
    61       INCLUDE "compbl.h"
    6262
    6363!=====================================================================

  • LMDZ6/trunk/libf/phylmd/ener_conserv.f90

    r5285 r5296  
    2020
    2121! From module
     22USE compbl_mod_h
    2223USE yoethf_mod_h
    2324USE clesphys_mod_h
    … …  
    3637IMPLICIT none
    3738
    38 INCLUDE "compbl.h"
    3939
    4040! Arguments

  • LMDZ6/trunk/libf/phylmd/freinage.f90

    r5285 r5296  
    66
    77    !ONLINE:
    8     USE clesphys_mod_h
     8USE compbl_mod_h
     9        USE clesphys_mod_h
    910    use dimphy, only: klon, klev
    1011!    USE control, ONLY: nvm
    … …  
    1718
    1819    include "YOEGWD.h"
    19 !FC 
     20!FC
    2021    include "dimpft.h"
    21     include "compbl.h"
    2222
    2323    ! 0. DECLARATIONS:

  • LMDZ6/trunk/libf/phylmd/inlandsis/surf_inlandsis_mod.f90

    r5282 r5296  
    10401040        USE dimsoil_mod_h, ONLY: nsoilmx, nsnowmx, nsismx
    10411041        USE clesphys_mod_h
     1042        USE compbl_mod_h
    10421043        IMPLICIT none
    10431044        !======================================================================
    … …  
    10451046        ! Objet: Lecture du fichier de conditions initiales pour SISVAT
    10461047        !======================================================================
    1047         !    include "indicesol.h"
    1048 
    1049         !
    1050         include "compbl.h"
    1051 
    1052         !======================================================================
     1048
    10531049        CHARACTER(LEN = *) :: fichnom
    10541050
    … …  
    12681264        ! Objet: Ecriture de l'etat de redemarrage pour SISVAT
    12691265        !======================================================================
    1270         USE mod_grid_phy_lmdz
     1266USE compbl_mod_h
     1267                USE mod_grid_phy_lmdz
    12711268        USE mod_phys_lmdz_para
    12721269        USE iostart
    … …  
    12801277
    12811278        IMPLICIT none
    1282         include "compbl.h"
    12831279
    12841280        !======================================================================

  • LMDZ6/trunk/libf/phylmd/pbl_surface_mod.F90

    r5285 r5296  
    407407#endif
    408408#endif
    409 USE yoethf_mod_h
     409USE compbl_mod_h
     410    USE yoethf_mod_h
    410411        USE clesphys_mod_h
    411412    USE ioipsl_getin_p_mod, ONLY : getin_p
    … …  
    422423
    423424    INCLUDE "FCTTRE.h"
    424     INCLUDE "compbl.h"
    425425    INCLUDE "flux_arp.h"
    426426!FC
    … …  
    42874287    ! Give default values where new fraction has appread
    42884288
    4289     USE clesphys_mod_h
     4289USE compbl_mod_h
     4290        USE clesphys_mod_h
    42904291    USE indice_sol_mod
    42914292    use phys_state_var_mod, only: delta_sal, ds_ns, dt_ns, delta_sst, dter, &
    42924293         dser, dt_ds
    42934294    use config_ocean_skin_m, only: activate_ocean_skin
    4294     INCLUDE "compbl.h"
    42954295
    42964296! Input variables

  • LMDZ6/trunk/libf/phylmd/phyetat0_mod.f90

    r5285 r5296  
    4545  use config_ocean_skin_m, only: activate_ocean_skin
    4646  USE dimsoil_mod_h, ONLY: nsoilmx
    47 
    48 
    4947  USE yomcst_mod_h
    5048  USE alpale_mod
     49  USE compbl_mod_h
    5150IMPLICIT none
    5251  !======================================================================
    5352  ! Auteur(s) Z.X. Li (LMD/CNRS) date: 19930818
    5453  ! Objet: Lecture de l'etat initial pour la physique
    55   !======================================================================
    56   include "compbl.h"
    57 
    5854  !======================================================================
    5955  CHARACTER*(*) fichnom

  • LMDZ6/trunk/libf/phylmd/phyredem.f90

    r5284 r5296  
    99! Purpose: Write restart state for physics.
    1010!-------------------------------------------------------------------------------
    11 USE alpale_mod
     11USE compbl_mod_h
     12  USE alpale_mod
    1213    USE clesphys_mod_h
    1314  USE dimphy, ONLY: klon, klev
    … …  
    4748  USE dimsoil_mod_h, ONLY: nsoilmx
    4849  IMPLICIT none
    49   include "compbl.h"
    5050  !======================================================================
    5151  CHARACTER*(*) fichnom

  • LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90

    r5285 r5296  
    470470    USE YOESW, ONLY : RSUN
    471471#endif
    472 USE alpale_mod
     472USE compbl_mod_h
     473    USE alpale_mod
    473474        USE clesphys_mod_h
    474475    USE tracinca_mod, ONLY: config_inca
    … …  
    479480
    480481    USE yomcst_mod_h
     482    USE phys_constants_mod, ONLY: dobson_u
    481483IMPLICIT NONE
    482484
    483     INCLUDE "compbl.h"
    484485
    485486
    … …  
    516517    INTEGER, DIMENSION(nbp_lon*nbp_lat)  :: ndex2d
    517518    INTEGER, DIMENSION(nbp_lon*nbp_lat*klev) :: ndex3d
    518     REAL, PARAMETER :: dobson_u = 2.1415e-05 ! Dobson unit, in kg m-2
    519519!   REAL, PARAMETER :: missing_val=nf90_fill_real
    520520    REAL, DIMENSION(klev+1,2) :: Ahyb_bounds, Bhyb_bounds

  • LMDZ6/trunk/libf/phylmd/physiq_mod.F90

    r5293 r5296  
    362362       USE yoethf_mod_h
    363363       USE calcul_divers_mod_h, ONLY: calcul_divers
    364 
     364       USE compbl_mod_h
    365365    IMPLICIT NONE
    366366    !>======================================================================
    … …  
    11741174    include "FCTTRE.h"
    11751175    include "nuage.h"
    1176     include "compbl.h"
    11771176    !IM 100106 END : pouvoir sortir les ctes de la physique
    11781177    !

  • LMDZ6/trunk/libf/phylmd/radiation_AR4.f90

    r5285 r5296  
    99  USE print_control_mod, ONLY: lunout
    1010  USE yomcst_mod_h
     11  USE phys_constants_mod, ONLY: dobson_u
    1112IMPLICIT NONE
    1213
    … …  
    8182
    8283  ! * LOCAL VARIABLES:
    83 
    84   REAL, PARAMETER :: dobson_u = 2.1415E-05 ! Dobson unit, in kg m-2
    8584
    8685  REAL (KIND=8) zoz(kdlon, kflev)

  • LMDZ6/trunk/libf/phylmd/radlwsw_m.F90

    r5285 r5296  
    8989    USE clesphys_mod_h
    9090    USE yoethf_mod_h
     91    USE phys_constants_mod, ONLY: dobson_u
    9192
    9293    !======================================================================
    … …  
    403404    REAL(KIND=8) zsolsw_aero(kdlon,9), zsolsw0_aero(kdlon,9)
    404405    REAL(KIND=8) ztopswcf_aero(kdlon,3), zsolswcf_aero(kdlon,3)     
    405     ! real, parameter:: dobson_u = 2.1415e-05 ! Dobson unit, in kg m-2 deje declare dans physiq.F MPL 20130618
    406406    !MPL input supplementaires pour RECMWFL
    407407    ! flwc, fiwc = Liquid Water Content & Ice Water Content (kg/kg)
    … …  
    471471    !      REAL(KIND=8) SUN(3)
    472472    !      REAL(KIND=8) SUN_FRACT(2)
    473     REAL, PARAMETER:: dobson_u = 2.1415e-05 ! Dobson unit, in kg m-2
    474473    CHARACTER (LEN=80) :: abort_message
    475474    CHARACTER (LEN=80) :: modname='radlwsw_m'

  • LMDZ6/trunk/libf/phylmd/surf_land_orchidee_nofrein_mod.F90

    r5285 r5296  
    6161#endif
    6262    USE yomcst_mod_h
     63    USE compbl_mod_h
    6364!   
    6465! Cette routine sert d'interface entre le modele atmospherique et le
    … …  
    115116!
    116117    INCLUDE "dimpft.h"
    117     INCLUDE "compbl.h"
    118 
    119118 
    120119!

  • LMDZ6/trunk/libf/phylmd/surf_land_orchidee_noz0h_mod.F90

    r5285 r5296  
    5959#endif
    6060    USE yomcst_mod_h
     61    USE compbl_mod_h
    6162!   
    6263! Cette routine sert d'interface entre le modele atmospherique et le
    … …  
    113114!
    114115    INCLUDE "dimpft.h"
    115     INCLUDE "compbl.h"
    116116!
    117117! Parametres d'entree

  • LMDZ6/trunk/libf/phylmd/sw_aeroAR4.f90

    r5285 r5296  
    9999  !* LOCAL VARIABLES:
    100100  !
    101   real, parameter:: dobson_u = 2.1415e-05 ! Dobson unit, in kg m-2
    102101
    103102  REAL(KIND=8) ZOZ(KDLON,KFLEV)

  • LMDZ6/trunk/libf/phylmd/undefSTD.f90

    r5282 r5296  
    3636  ! INTEGER nlevSTD, klevSTD, itap
    3737  ! PARAMETER(klevSTD=17)
    38   INTEGER itap
    3938
    4039  ! variables locales
    … …  
    4342  INTEGER i, k, n
    4443  ! REAL freq_calNMC(nout)
    45   INTEGER read_climoz
     44  INTEGER, INTENT(IN) :: read_climoz, itap
    4645
    4746  ! variables Output

  • LMDZ6/trunk/libf/phylmdiso/climb_hq_mod.F90

    r5285 r5296  
    6363#endif
    6464  USE yomcst_mod_h
     65  USE compbl_mod_h
    6566
    6667! This routine calculates recursivly the coefficients C and D
    … …  
    124125    real, DIMENSION(klon) ::  Acoef_XT_tmp,Bcoef_XT_tmp
    125126    integer ixt
    126 #endif
    127 ! Include
    128 !****************************************************************************************
    129     INCLUDE "compbl.h"
     127#endif
    130128   
    131129#ifdef ISO
    … …  
    505503#endif
    506504  USE yomcst_mod_h
     505  USE compbl_mod_h
    507506!
    508507! This routine calculates the flux and tendency of the specific humidity q and
    … …  
    555554#endif
    556555 
    557 ! Include
    558 !****************************************************************************************
    559     INCLUDE "compbl.h"
    560 
    561556!****************************************************************************************
    562557! 1)

  • LMDZ6/trunk/libf/phylmdiso/compbl_mod_h.f90

    r5295 r5296  
    1 link ../phylmd/compbl.h
     1link ../phylmd/compbl_mod_h.f90

  • LMDZ6/trunk/libf/phylmdiso/isotopes_routines_mod.F90

    r5285 r5296  
    1587715877#endif
    1587815878
     15879USE compbl_mod_h
    1587915880       USE clesphys_mod_h
    1588015881implicit none
    1588115882
    1588215883      ! equivalent de phyetat0 pour les isotopes
    15883 INCLUDE "compbl.h"
    1588415884
    1588515885!#ifdef ISOVERIF
    … …  
    1605216052  USE isotrac_mod, ONLY: index_iso,index_zone,izone_init
    1605316053#endif
     16054USE compbl_mod_h
    1605416055      USE clesphys_mod_h
    1605516056        implicit none
    16056 INCLUDE "compbl.h"
    1605716057
    1605816058        ! arguments 
    … …  
    1642616426   USE isotrac_mod, ONLY: strtrac, initialisation_isotrac, index_iso, index_zone, izone_init
    1642716427#endif
     16428USE compbl_mod_h
    1642816429   USE clesphys_mod_h
    1642916430   IMPLICIT NONE
    16430 INCLUDE "compbl.h"
    1643116431
    1643216432   REAL, INTENT(IN) ::             snow     (klon,nbsrf)

  • LMDZ6/trunk/libf/phylmdiso/phyetat0_mod.F90

    r5285 r5296  
    6464  USE yomcst_mod_h
    6565  USE alpale_mod
     66  USE compbl_mod_h
    6667IMPLICIT none
    6768  !======================================================================
    6869  ! Auteur(s) Z.X. Li (LMD/CNRS) date: 19930818
    6970  ! Objet: Lecture de l'etat initial pour la physique
    70   !======================================================================
    71   include "compbl.h"
    72 
    73   !======================================================================
     71  !======================================================================  !======================================================================
    7472  CHARACTER*(*) fichnom
    7573

  • LMDZ6/trunk/libf/phylmdiso/phyredem.F90

    r5284 r5296  
    4646#endif
    4747#endif
    48 USE alpale_mod
     48USE compbl_mod_h
     49  USE alpale_mod
    4950    USE clesphys_mod_h
    5051  USE carbon_cycle_mod, ONLY : carbon_cycle_cpl, co2_send, carbon_cycle_rad, RCO2_glo
    … …  
    5758
    5859  IMPLICIT none
    59   include "compbl.h"
    6060  !======================================================================
    6161  CHARACTER*(*) fichnom
    … …  
    512512    use isotrac_mod, only: index_zone,index_iso,strtrac
    513513#endif
     514USE compbl_mod_h
    514515USE alpale_mod
    515516      USE clesphys_mod_h
    … …  
    518519
    519520        ! equivalent isotopique de phyredem
    520 INCLUDE "compbl.h"
    521521      ! inputs
    522522      !REAL xtsol(niso,klon)

  • LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

    r5293 r5296  
    435435    USE yoethf_mod_h
    436436    USE calcul_divers_mod_h, ONLY: calcul_divers
    437 
     437    USE compbl_mod_h
    438438    IMPLICIT NONE
    439439    !>======================================================================
    … …  
    12851285    !IM 100106 BEG : pouvoir sortir les ctes de la physique
    12861286    include "nuage.h"
    1287     include "compbl.h"
    12881287    !IM 100106 END : pouvoir sortir les ctes de la physique
    12891288    !
Note: See TracChangeset for help on using the changeset viewer.