Ignore:
Timestamp:
Oct 30, 2024, 2:05:33 PM (2 months 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/phylmdiso
Files:
1 deleted
5 edited
1 moved

Legend:

Unmodified
Added
Removed

  • 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.