Changeset 3399 for LMDZ6/branches/IPSLCM6.0.15/libf

Timestamp:

Oct 1, 2018, 11:59:06 AM (6 years ago)

Author:

Laurent Fairhead

Message:

Reverting to r3353 of routine so that correction of t2m interpolation problem
can be seamlessly included in IPSL6.0.7 configuration
Will be included back after commit of t2m corection
LF

File:

• LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/phys_output_write_mod.F90 (modified) (1 diff)

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

@@ -1382 +1382 @@
           CALL histwrite_phy(o_solswad, solswad_aero*swradcorr)
           CALL histwrite_phy(o_solswad0, solswad0_aero*swradcorr)
-          CALL histwrite_phy(o_toplwad, toplwad_aero)
-          CALL histwrite_phy(o_toplwad0, toplwad0_aero)
-          CALL histwrite_phy(o_sollwad, sollwad_aero)
-          CALL histwrite_phy(o_sollwad0, sollwad0_aero)
+          IF (type_trac .ne. 'inca') THEN 
+             IF (config_inca .ne. 'aeNP') THEN 
+                CALL histwrite_phy(o_toplwad, toplwad_aero)
+                CALL histwrite_phy(o_toplwad0, toplwad0_aero)
+                CALL histwrite_phy(o_sollwad, sollwad_aero)
+                CALL histwrite_phy(o_sollwad0, sollwad0_aero)
+             ENDIF
+          ENDIF
           !====MS forcing diagnostics
           IF (new_aod) THEN