Changeset 2690 for LMDZ5/trunk/libf/phylmd/infotrac_phy.F90

Timestamp:

Oct 30, 2016, 4:35:25 PM (8 years ago)

Author:

oboucher

Message:

Adding a module for stratospheric aerosols with a bin scheme.
The module gets activated with -strataer true compiling option.
May not quite work yet, more testing needed, but should not affect
the rest of LMDz as everything is under a CPP_StratAer key.

File:

• LMDZ5/trunk/libf/phylmd/infotrac_phy.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/infotrac_phy.F90

@@ -95 +95 @@
                                indnum_fn_num_,index_trac_,&
                                niso_,ntraceurs_zone_,ntraciso_)
-  ! transfer information on tracers from dynamics to physics
-  USE print_control_mod, ONLY: prt_level, lunout
-  IMPLICIT NONE
+
+    ! transfer information on tracers from dynamics to physics
+    USE print_control_mod, ONLY: prt_level, lunout
+    IMPLICIT NONE
+
     INTEGER,INTENT(IN) :: nqtot_
     INTEGER,INTENT(IN) :: nqo_