Changeset 3458 for LMDZ6/branches/Ocean_skin/libf/phylmd/phyredem.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/phyredem.F90 (modified) (2 diffs)

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

@@ -37 +37 @@
   USE ocean_slab_mod, ONLY : nslay, tslab, seaice, tice, fsic
   USE time_phylmdz_mod, ONLY: annee_ref, day_end, itau_phy, pdtphys
+  use config_ocean_skin_m, only: activate_ocean_skin  
 
   IMPLICIT none
@@ -337 +338 @@
        "tendency on zonal wind due to acama gravity waves", du_gwd_front)
 
-  CALL put_field("ds_ns", "delta salinity near surface", ds_ns)
-  CALL put_field("dT_ns", "delta temperature near surface", dT_ns)
+  if (activate_ocean_skin >= 1) then
+     CALL put_field("ds_ns", "delta salinity near surface", ds_ns)
+     CALL put_field("dT_ns", "delta temperature near surface", dT_ns)
+  end if
   
   CALL close_restartphy