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

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

File:
1 edited

Legend:

Unmodified
Added
Removed

  • 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:
Note: See TracChangeset for help on using the changeset viewer.