Changeset 2973 for LMDZ5/trunk/libf/phylmd/phys_output_write_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/phys_output_write_mod.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/phys_output_write_mod.F90

@@ -1906 +1906 @@
 #endif
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+       IF (iflag_phytrac == 1 ) then
        IF (nqtot.GE.nqo+1) THEN
           DO iq=nqo+1, nqtot
@@ -1936 +1937 @@
           ENDDO
        ENDIF
+       ENDIF   !(iflag_phytrac==1)
+
 
        IF (.NOT.vars_defined) THEN