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

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

Location:
LMDZ6/trunk/libf/phylmd/ecrad/lmdz
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/ecrad/lmdz/readaerosol_optic_ecrad.f90

    r5268 r5282  
    1313  !
    1414
     15  USE clesphys_mod_h
    1516  USE dimphy
    1617  USE aero_mod
    1718  USE phys_local_var_mod, only: sconcso4,sconcno3,sconcoa,sconcbc,sconcss,sconcdust, &
    1819       concso4,concno3,concoa,concbc,concss,concdust,loadso4,loadoa,loadbc,loadss,loaddust, &
    19        loadno3,load_tmp1,load_tmp2,load_tmp3,load_tmp4,load_tmp5,load_tmp6,load_tmp7, & 
     20       loadno3,load_tmp1,load_tmp2,load_tmp3,load_tmp4,load_tmp5,load_tmp6,load_tmp7, &
    2021       load_tmp8,load_tmp9,load_tmp10
    2122
    … …  
    2526  IMPLICIT NONE
    2627
    27   include "clesphys.h"
    2828
    2929  ! Input arguments

  • LMDZ6/trunk/libf/phylmd/ecrad/lmdz/readaerosolstrato_ecrad.F90

    r4853 r5282  
    2525#endif
    2626
     27    USE clesphys_mod_h
    2728    IMPLICIT NONE
    2829
    29     INCLUDE "clesphys.h"
    3030
    3131    CHARACTER (len = 80) :: abort_message
Note: See TracChangeset for help on using the changeset viewer.