Changeset 2973 for LMDZ5/trunk/libf/phylmd/physiq_mod.F90

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/physiq_mod.F90 (modified) (3 diffs)

LMDZ5/trunk/libf/phylmd/physiq_mod.F90

@@ -1237 +1237 @@
        fl_cor_ebil = 0 ! by default, no correction to ensure energy conservation
        CALL getin_p('fl_cor_ebil',fl_cor_ebil)
+       iflag_phytrac = 0 ! by default we do not want to call phytrac
+       CALL getin_p('iflag_phytrac',iflag_phytrac)
     ENDIF
 
@@ -4258 +4260 @@
     ENDIF
 
+    IF (iflag_phytrac == 1 ) THEN
+
 #ifdef CPP_Dust
       CALL       phytracr_spl ( debut,lafin , jD_cur,jH_cur,iflag_con,       &  ! I
@@ -4301 +4305 @@
          tr_seri)
 #endif
+    ENDIF    ! (iflag_phytrac=1)
 
     IF (offline) THEN