Changeset 2973 for LMDZ5/trunk/libf/phylmd/clesphys.h

Timestamp:

Jul 31, 2017, 3:41:02 PM (7 years ago)

Author:

Laurent Fairhead

Message:

Bypassing the call to phytrac when not needed.
Controlled by iflag_phytrac read in physiq.def and which is 0
by default (thus no call to phytrac by default)
LF

File:

• LMDZ5/trunk/libf/phylmd/clesphys.h (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/clesphys.h

@@ -91 +91 @@
        LOGICAL :: adjust_tropopause
        LOGICAL :: ok_daily_climoz
+! flag to bypass or not the phytrac module
+       INTEGER :: iflag_phytrac
 
        COMMON/clesphys/                                                 &
@@ -137 +139 @@
      &     , iflag_ice_thermo, ok_gwd_rando, NSW, iflag_albedo          &
      &     , ok_chlorophyll,ok_conserv_q, adjust_tropopause             &
-     &     , ok_daily_climoz, ok_all_xml
+     &     , ok_daily_climoz, ok_all_xml                                &
+     &     , iflag_phytrac
      
        save /clesphys/