Changeset 5305


Ignore:
Timestamp:
Oct 30, 2024, 7:29:21 PM (18 hours ago)
Author:
abarral
Message:

Turn YOMCST2.h.h into module

Location:
LMDZ6/trunk/libf
Files:
15 edited
4 moved

Legend:

Unmodified
Added
Removed
  • LMDZ6/trunk/libf/phylmd/conf_phys_m.f90

    r5304 r5305  
    4343    USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_STRATAER
    4444    USE comsoil_mod_h
    45 
    46     INCLUDE "nuage.h"
    47 
     45    USE nuage_params_mod_h
    4846
    4947    INCLUDE "YOEGWD.h"
  • LMDZ6/trunk/libf/phylmd/cv3_routines.f90

    r5304 r5305  
    27062706  USE cvflag_mod_h
    27072707  USE print_control_mod, ONLY: prt_level, lunout
     2708  USE nuage_params_mod_h
    27082709  IMPLICIT NONE
    2709 
    2710   include "nuage.h"
    27112710
    27122711!inputs:
  • LMDZ6/trunk/libf/phylmd/dimpft_mod_h.f90

    r5304 r5305  
    1 !
    2 ! $Id$
    3 !
    4       INTEGER nvm_lmdz
    5 !      PARAMETER (nvm_lmdz=13)
    6       COMMON /dimpft/ nvm_lmdz
     1MODULE dimpft_mod_h
     2  IMPLICIT NONE; PRIVATE
     3  PUBLIC nvm_lmdz
     4
     5  INTEGER :: nvm_lmdz
     6END MODULE dimpft_mod_h
     7
  • LMDZ6/trunk/libf/phylmd/freinage.f90

    r5296 r5305  
    66
    77    !ONLINE:
    8 USE compbl_mod_h
     8USE dimpft_mod_h
     9    USE compbl_mod_h
    910        USE clesphys_mod_h
    1011    use dimphy, only: klon, klev
     
    1920    include "YOEGWD.h"
    2021!FC
    21     include "dimpft.h"
    2222
    2323    ! 0. DECLARATIONS:
  • LMDZ6/trunk/libf/phylmd/nuage.f90

    r5285 r5305  
    1111  USE lmdz_lscp_ini, only : iflag_t_glace
    1212  USE phys_local_var_mod, ONLY: ptconv
     13  USE nuage_params_mod_h
    1314  IMPLICIT NONE
    1415  ! ======================================================================
     
    3940  ! pclemi--output-R-emissivite des nuages (0 a 1)
    4041  ! ======================================================================
    41 
    42   include "nuage.h" ! JBM 3/14
    4342
    4443  REAL paprs(klon, klev+1), pplay(klon, klev)
  • LMDZ6/trunk/libf/phylmd/nuage_mod_h.f90

    r5304 r5305  
    1 !
    2 ! $Id$
    3 !
    4       REAL rad_froid, rad_chau1, rad_chau2
    5       REAL tau_cld_cv,coefw_cld_cv
    6       REAL tmax_fonte_cv
    7       INTEGER iflag_cld_cv, iflag_ratqs
    8       LOGICAL ok_icefra_lscp
     1! Replaces nuage.h
    92
    10       common /nuagecom/ rad_froid,rad_chau1, rad_chau2,                 &
    11      &                  tau_cld_cv,coefw_cld_cv,                        &
    12      &                  tmax_fonte_cv,iflag_ratqs,                      &
    13      &                  iflag_cld_cv,                                   &
    14      &                  ok_icefra_lscp                                 
    15 !$OMP THREADPRIVATE(/nuagecom/)
     3MODULE nuage_params_mod_h
     4  IMPLICIT NONE; PRIVATE
     5  PUBLIC rad_froid, rad_chau1, rad_chau2, &
     6          tau_cld_cv, coefw_cld_cv, &
     7          tmax_fonte_cv, iflag_ratqs, &
     8          iflag_cld_cv, &
     9          ok_icefra_lscp
     10
     11  REAL rad_froid, rad_chau1, rad_chau2
     12  REAL tau_cld_cv, coefw_cld_cv
     13  REAL tmax_fonte_cv
     14  INTEGER iflag_cld_cv, iflag_ratqs
     15  LOGICAL ok_icefra_lscp
     16
     17  !$OMP THREADPRIVATE(rad_froid,rad_chau1, rad_chau2,                 &
     18  !$OMP                    tau_cld_cv,coefw_cld_cv,                        &
     19  !$OMP                    tmax_fonte_cv,iflag_ratqs,                      &
     20  !$OMP                    iflag_cld_cv,                                   &
     21  !$OMP                    ok_icefra_lscp)
     22
     23END MODULE nuage_params_mod_h
  • LMDZ6/trunk/libf/phylmd/pbl_surface_mod.F90

    r5301 r5305  
    407407#endif
    408408#endif
    409 USE flux_arp_mod_h
     409USE dimpft_mod_h
     410    USE flux_arp_mod_h
    410411    USE compbl_mod_h
    411412    USE yoethf_mod_h
     
    424425
    425426    INCLUDE "FCTTRE.h"
    426 !FC
    427     INCLUDE "dimpft.h"
     427!FC
    428428
    429429!****************************************************************************************
  • LMDZ6/trunk/libf/phylmd/physiq_mod.F90

    r5296 r5305  
    363363       USE calcul_divers_mod_h, ONLY: calcul_divers
    364364       USE compbl_mod_h
     365       USE nuage_params_mod_h
     366       USE dimpft_mod_h, ONLY: nvm_lmdz
    365367    IMPLICIT NONE
    366368    !>======================================================================
     
    415417
    416418    include "regdim.h"
    417     include "dimpft.h"
    418419    !======================================================================
    419420    LOGICAL, SAVE :: ok_volcan ! pour activer les diagnostics volcaniques
     
    11731174
    11741175    include "FCTTRE.h"
    1175     include "nuage.h"
    11761176    !IM 100106 END : pouvoir sortir les ctes de la physique
    11771177    !
  • LMDZ6/trunk/libf/phylmd/surf_land_mod.F90

    r5285 r5305  
    7373#endif
    7474
    75     USE clesphys_mod_h
     75USE dimpft_mod_h
     76        USE clesphys_mod_h
    7677    USE yomcst_mod_h
    7778USE print_control_mod, ONLY: lunout
    7879    USE dimsoil_mod_h, ONLY: nsoilmx
    7980
    80     INCLUDE "dimpft.h"
    8181
    8282! Input variables 
  • LMDZ6/trunk/libf/phylmd/surf_land_orchidee_mod.F90

    r5285 r5305  
    6262#endif
    6363    USE yomcst_mod_h
     64    USE dimpft_mod_h
    6465!   
    6566! Cette routine sert d'interface entre le modele atmospherique et le
     
    113114!   z0h_new      surface roughness for heat
    114115!   qsurf        air moisture at surface
    115 !
    116     INCLUDE "dimpft.h"
    117 !
     116!!
    118117! Parametres d'entree
    119118!****************************************************************************************
  • LMDZ6/trunk/libf/phylmd/surf_land_orchidee_nofrein_mod.F90

    r5296 r5305  
    6262    USE yomcst_mod_h
    6363    USE compbl_mod_h
     64    USE dimpft_mod_h
    6465!   
    6566! Cette routine sert d'interface entre le modele atmospherique et le
     
    115116!   qsurf        air moisture at surface
    116117!
    117     INCLUDE "dimpft.h"
    118  
     118
    119119!
    120120! Parametres d'entree
  • LMDZ6/trunk/libf/phylmd/surf_land_orchidee_nolic_mod.F90

    r5285 r5305  
    5858#endif
    5959    USE yomcst_mod_h
     60    USE dimpft_mod_h
    6061!   
    6162! Cette routine sert d'interface entre le modele atmospherique et le
     
    110111!   qsurf        air moisture at surface
    111112!
    112     INCLUDE "dimpft.h"
    113113!
    114114! Parametres d'entree
  • LMDZ6/trunk/libf/phylmd/surf_land_orchidee_noopenmp_mod.F90

    r5285 r5305  
    106106    USE time_phylmdz_mod, ONLY: itau_phy
    107107#endif
    108     USE yomcst_mod_h
     108USE dimpft_mod_h
     109        USE yomcst_mod_h
    109110IMPLICIT NONE
    110111
    111112
    112     INCLUDE "dimpft.h" 
    113113!
    114114! Parametres d'entree
  • LMDZ6/trunk/libf/phylmd/surf_land_orchidee_nounstruct_mod.F90

    r5285 r5305  
    5757#endif
    5858    USE yomcst_mod_h
     59    USE dimpft_mod_h
    5960!   
    6061! Cette routine sert d'interface entre le modele atmospherique et le
     
    110111!   qsurf        air moisture at surface
    111112!
    112     INCLUDE "dimpft.h"
    113 
    114 
    115  
     113
    116114!
    117115! Parametres d'entree
  • LMDZ6/trunk/libf/phylmd/surf_land_orchidee_noz0h_mod.F90

    r5296 r5305  
    6060    USE yomcst_mod_h
    6161    USE compbl_mod_h
     62    USE dimpft_mod_h
    6263!   
    6364! Cette routine sert d'interface entre le modele atmospherique et le
     
    113114!   qsurf        air moisture at surface
    114115!
    115     INCLUDE "dimpft.h"
    116116!
    117117! Parametres d'entree
  • LMDZ6/trunk/libf/phylmdiso/cv3_routines.F90

    r5304 r5305  
    35993599#endif
    36003600#endif
    3601 USE cv3param_mod_h
    3602     USE cvthermo_mod_h
     3601  USE cv3param_mod_h
     3602  USE cvthermo_mod_h
    36033603  USE cvflag_mod_h
     3604  USE nuage_params_mod_h
    36043605  IMPLICIT NONE
    3605 
    3606 
    3607   include "nuage.h"
    36083606
    36093607!inputs:
  • LMDZ6/trunk/libf/phylmdiso/dimpft_mod_h.f90

    r5304 r5305  
    1 link ../phylmd/dimpft.h
     1link ../phylmd/dimpft_mod_h.f90
  • LMDZ6/trunk/libf/phylmdiso/nuage_mod_h.f90

    r5304 r5305  
    1 link ../phylmd/nuage.h
     1link ../phylmd/nuage_mod_h.f90
  • LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

    r5296 r5305  
    436436    USE calcul_divers_mod_h, ONLY: calcul_divers
    437437    USE compbl_mod_h
     438    USE nuage_params_mod_h
     439    USE dimpft_mod_h, ONLY: nvm_lmdz
    438440    IMPLICIT NONE
    439441    !>======================================================================
     
    488490
    489491    include "regdim.h"
    490     include "dimpft.h"
    491492    !======================================================================
    492493    LOGICAL, SAVE :: ok_volcan ! pour activer les diagnostics volcaniques
     
    12831284
    12841285    include "FCTTRE.h"
    1285     !IM 100106 BEG : pouvoir sortir les ctes de la physique
    1286     include "nuage.h"
    1287     !IM 100106 END : pouvoir sortir les ctes de la physique
    1288     !
     1286
    12891287    ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    12901288    ! Declarations pour Simulateur COSP
Note: See TracChangeset for help on using the changeset viewer.