Changeset 3458 for LMDZ6/branches/Ocean_skin/libf/phylmd/phys_output_write_mod.F90

Timestamp:

Jan 30, 2019, 5:55:48 PM (5 years ago)

Author:

lguez

Message:

Introduce variable activate_ocean_skin in module config_ocean_skin_m.

Bug fix in phys_state_var_end: we need to deallocate variables for
lmdz1d (although it is useless for a 3D run).

File:

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

LMDZ6/branches/Ocean_skin/libf/phylmd/phys_output_write_mod.F90

@@ -376 +376 @@
 #endif
     USE tracinca_mod, ONLY: config_inca
+    use config_ocean_skin_m, only: activate_ocean_skin
 
     IMPLICIT NONE
@@ -2111 +2112 @@
        ENDIF   !(iflag_phytrac==1)
 
-       CALL histwrite_phy(o_t_int, t_int)
-       CALL histwrite_phy(o_s_int, s_int)
-       CALL histwrite_phy(o_ds_ns, ds_ns)
-       CALL histwrite_phy(o_dt_ns, dt_ns)
-       CALL histwrite_phy(o_dter, dter)
-       CALL histwrite_phy(o_dser, dser)
-       CALL histwrite_phy(o_tkt, tkt)
-       CALL histwrite_phy(o_tks, tks)
-       CALL histwrite_phy(o_rf, rf)
-       CALL histwrite_phy(o_taur, taur)
+       if (activate_ocean_skin >= 1) then
+          CALL histwrite_phy(o_t_int, t_int)
+          CALL histwrite_phy(o_s_int, s_int)
+          CALL histwrite_phy(o_ds_ns, ds_ns)
+          CALL histwrite_phy(o_dt_ns, dt_ns)
+          CALL histwrite_phy(o_dter, dter)
+          CALL histwrite_phy(o_dser, dser)
+          CALL histwrite_phy(o_tkt, tkt)
+          CALL histwrite_phy(o_tks, tks)
+          CALL histwrite_phy(o_rf, rf)
+          CALL histwrite_phy(o_taur, taur)
+       end if
 
        IF (.NOT.vars_defined) THEN