Changeset 3522 for LMDZ6/trunk


Ignore:
Timestamp:
May 22, 2019, 11:41:07 PM (5 years ago)
Author:
oboucher
Message:

Call to initialisation of S3A model

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/trunk/libf/phylmd/physiq_mod.F90

    r3512 r3522  
    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, &
     
    12541257       CALL phys_state_var_init(read_climoz)
    12551258       CALL phys_output_var_init
    1256        IF(read_climoz>=1 .AND. create_etat0_limit .AND. grid_type==unstructured) CALL regr_horiz_time_climoz(read_climoz,ok_daily_climoz)
     1259       IF (read_climoz>=1 .AND. create_etat0_limit .AND. grid_type==unstructured) &
     1260          CALL regr_horiz_time_climoz(read_climoz,ok_daily_climoz)
     1261
     1262#ifdef CPP_StratAer
     1263       CALL strataer_init
     1264#endif
    12571265
    12581266       print*, '================================================='
Note: See TracChangeset for help on using the changeset viewer.