Changeset 2966 for LMDZ5/trunk

Timestamp:

Jul 25, 2017, 3:13:34 PM (7 years ago)

Author:

acozic

Message:

when we turn with inca and old physics we don't calcul toplwad, toplwad0, sollwad, sollwad0

File:

• LMDZ5/trunk/libf/phylmd/phys_output_write_mod.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/phys_output_write_mod.F90

@@ -346 +346 @@
     USE YOESW, ONLY : RSUN
 #endif
+    USE tracinca_mod, ONLY: config_inca
 
     IMPLICIT NONE
@@ -1255 +1256 @@
           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