Changeset 3067 for LMDZ6/branches

Timestamp:

Nov 13, 2017, 10:02:18 AM (7 years ago)

Author:

Laurent Fairhead

Message:

Inclusion of r3066 from trunk

File:

• LMDZ6/branches/IPSLCM6.0.13/libf/phylmd/phys_output_write_mod.F90 (modified) (2 diffs)

LMDZ6/branches/IPSLCM6.0.13/libf/phylmd/phys_output_write_mod.F90

@@ -1387 +1387 @@
        CALL histwrite_phy(o_zfull,zphi/RG)
 
+#ifdef CPP_XIOS
 !solbnd begin
 #ifdef CPP_RRTM
@@ -1398 +1399 @@
       ENDIF
 #endif
-
 !solbnd end
+#endif
 
        IF (flag_aerosol_strat.EQ.2) THEN