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

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

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/StratAer/calcaerosolstrato_rrtm.f90

    r5272 r5282  
    44SUBROUTINE calcaerosolstrato_rrtm(pplay,t_seri,paprs,debut)
    55
     6  USE clesphys_mod_h
     7  USE iniprint_mod_h
    68  USE phys_state_var_mod, ONLY: tau_aero_sw_rrtm, piz_aero_sw_rrtm, cg_aero_sw_rrtm, tau_aero_lw_rrtm
    79  USE phys_local_var_mod, ONLY: mdw, tausum_aero, tausum_strat, tau_strat_550, tau_strat_1020, stratomask
    … …  
    1719
    1820
    19   INCLUDE "clesphys.h"
    2021
    21   INCLUDE "iniprint.h"
    2222
    2323! Variable input
Note: See TracChangeset for help on using the changeset viewer.