Ignore:
Timestamp:
Oct 28, 2024, 1:11:48 PM (5 weeks ago)
Author:
abarral
Message:

Turn iniprint.h clesphys.h into modules
Remove unused description.h

Location:
LMDZ6/trunk/libf/phylmdiso
Files:
8 edited
1 moved

Legend:

Unmodified
Added
Removed

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

    r5274 r5282  
    160160#endif 
    161161#endif
    162 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     162USE clesphys_mod_h
     163  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    163164          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    164165          , R_ecc, R_peri, R_incl                                      &
    … …  
    174175IMPLICIT none
    175176
    176   include "clesphys.h"
    177177
    178178! Arguments :
    … …  
    693693!======================================================================
    694694
    695 USE phys_state_var_mod, ONLY : phys_tstep, ftsol
     695USE clesphys_mod_h
     696  USE phys_state_var_mod, ONLY : phys_tstep, ftsol
    696697USE geometry_mod, ONLY: longitude_deg, latitude_deg
    697698USE print_control_mod, ONLY: prt_level
    … …  
    713714IMPLICIT none
    714715
    715   include "clesphys.h"
    716716
    717717! Arguments :

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

    r5274 r5282  
    4141  USE infotrac_phy, ONLY: ntiso   
    4242#endif
     43    USE clesphys_mod_h
    4344    USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    4445          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    … …  
    5354          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    5455          , RALPD, RBETD, RGAMD
    55    
     56
    5657!albedo SB >>>
    57     include "clesphys.h"
    5858!albedo SB <<<
    5959

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

    r5281 r5282  
    1 link ../phylmd/clesphys.h
     1link ../phylmd/clesphys_mod_h.f90

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

    r5274 r5282  
    6161#endif
    6262#endif
     63  USE clesphys_mod_h
    6364  USE phys_local_var_mod, ONLY: omega
    6465  USE print_control_mod, ONLY: prt_level, lunout
    … …  
    127128
    128129
    129   include "clesphys.h"
    130130
    131131  INTEGER, INTENT(IN)                           :: iflag_clos

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

    r5274 r5282  
    1592215922#endif
    1592315923
    15924        implicit none   
     15924       USE clesphys_mod_h
     15925implicit none
    1592515926
    1592615927      ! equivalent de phyetat0 pour les isotopes
    15927 INCLUDE "clesphys.h"
    1592815928INCLUDE "compbl.h"
    1592915929
    … …  
    1609716097  USE isotrac_mod, ONLY: index_iso,index_zone,izone_init
    1609816098#endif
     16099      USE clesphys_mod_h
    1609916100        implicit none
    16100 INCLUDE "clesphys.h"
    16101 !  INCLUDE "thermcell.h"
    1610216101INCLUDE "compbl.h"
    1610316102
    … …  
    1647216471   USE isotrac_mod, ONLY: strtrac, initialisation_isotrac, index_iso, index_zone, izone_init
    1647316472#endif
     16473   USE clesphys_mod_h
    1647416474   IMPLICIT NONE
    16475 INCLUDE "clesphys.h"
    1647616475INCLUDE "compbl.h"
    1647716476

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

    r5274 r5282  
    4545  USE infotrac_phy, ONLY: niso
    4646#endif
     47    USE clesphys_mod_h
    4748    USE dimsoil_mod_h, ONLY: nsoilmx
    4849
    … …  
    6263
    6364
    64     include "clesphys.h"
    6565
    6666    INTEGER, INTENT (IN) :: nlon, year_len, iflag_phys

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

    r5274 r5282  
    5959#endif
    6060#endif
     61  USE clesphys_mod_h
    6162  USE dimsoil_mod_h, ONLY: nsoilmx
    6263
    … …  
    7879  ! Objet: Lecture de l'etat initial pour la physique
    7980  !======================================================================
    80   include "clesphys.h"
    8181  include "alpale.h"
    8282  include "compbl.h"

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

    r5273 r5282  
    4646#endif
    4747#endif
     48  USE clesphys_mod_h
    4849  USE carbon_cycle_mod, ONLY : carbon_cycle_cpl, co2_send, carbon_cycle_rad, RCO2_glo
    4950  USE indice_sol_mod, ONLY: nbsrf, is_oce, is_sic, is_ter, is_lic, epsfra
    … …  
    5556
    5657  IMPLICIT none
    57   include "clesphys.h"
    5858  include "alpale.h"
    5959  include "compbl.h"
    … …  
    512512    use isotrac_mod, only: index_zone,index_iso,strtrac
    513513#endif
    514       USE dimsoil_mod_h, ONLY: nsoilmx
     514      USE clesphys_mod_h
     515USE dimsoil_mod_h, ONLY: nsoilmx
    515516        implicit none
    516517
    517518        ! equivalent isotopique de phyredem
    518 INCLUDE "clesphys.h"
    519519INCLUDE "alpale.h"
    520520INCLUDE "compbl.h"

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

    r5274 r5282  
    443443          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    444444          , RALPD, RBETD, RGAMD
     445       USE clesphys_mod_h
    445446
    446447    IMPLICIT NONE
    … …  
    496497
    497498    include "regdim.h"
    498     include "clesphys.h"
    499499    include "alpale.h"
    500500    include "dimpft.h"
Note: See TracChangeset for help on using the changeset viewer.