Changeset 5305 for LMDZ6/trunk/libf


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.