Ignore:
Timestamp:
May 22, 2019, 11:40:37 PM (6 years ago)
Author:
oboucher
Message:

Call for initialisation of S3A model

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/physiq_mod.F90

    r3481 r3521  
    3838#ifdef CPP_Dust
    3939    USE phytracr_spl_mod, ONLY: phytracr_spl
     40#endif
     41#ifdef CPP_StratAer
     42    USE strataer_mod, ONLY: strataer_init
    4043#endif
    4144    USE phys_local_var_mod, ONLY: phys_local_var_init, phys_local_var_end, &
    … …  
    12391242       CALL phys_state_var_init(read_climoz)
    12401243       CALL phys_output_var_init
     1244
     1245#ifdef CPP_StratAer
     1246       CALL strataer_init
     1247#endif
    12411248       print*, '================================================='
    12421249       !
Note: See TracChangeset for help on using the changeset viewer.