Changeset 3522

Timestamp:

May 22, 2019, 11:41:07 PM (6 years ago)

Author:

oboucher

Message:

Call to initialisation of S3A model

File:

• LMDZ6/trunk/libf/phylmd/physiq_mod.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/physiq_mod.F90

@@ -38 +38 @@
 #ifdef CPP_Dust
     USE phytracr_spl_mod, ONLY: phytracr_spl
+#endif
+#ifdef CPP_StratAer
+    USE strataer_mod, ONLY: strataer_init
 #endif
     USE phys_local_var_mod, ONLY: phys_local_var_init, phys_local_var_end, &
@@ -1254 +1257 @@
        CALL phys_state_var_init(read_climoz)
        CALL phys_output_var_init
-       IF(read_climoz>=1 .AND. create_etat0_limit .AND. grid_type==unstructured) CALL regr_horiz_time_climoz(read_climoz,ok_daily_climoz)
+       IF (read_climoz>=1 .AND. create_etat0_limit .AND. grid_type==unstructured) & 
+          CALL regr_horiz_time_climoz(read_climoz,ok_daily_climoz)
+
+#ifdef CPP_StratAer
+       CALL strataer_init
+#endif
 
        print*, '================================================='