Changeset 3767 for LMDZ6/branches/Ocean_skin/libf/phylmd/phys_output_ctrlout_mod.F90

Timestamp:

Jul 19, 2020, 5:25:06 PM (4 years ago)

Author:

lguez

Message:

Store delta_sal instead of s_int

Revision analoguous to revision [3744], for salinity. Store as a state
variable and send to the ocean delta_sal, the difference between
ocean-air interface salinity and bulk salinity, instead of s_int,
the interface salinity.

So replace dummy argument s_int of procedure cpl_send_ocean_fields
by dummy argument delta_sal. Replace dummy argument s_int of
procedures ocean_cpl_noice and surf_ocean by dummy argument
delta_sal. Replace variable s_int of module phys_state_var_mod
by variable delta_sal. Rename local variable ys_int of procedure
pbl_surface to ydelta_sal. Set variable delta_sal of module
phys_state_var_mod to 0 for an appearing ocean fraction and a
missing startup field. Replace variable o_s_int of module
phys_output_ctrlout_mod by variable o_delta_sal.

Rename variables cpl_s_int and cpl_s_int_2D of module cpl_mod to
cpl_delta_sal and cpl_delta_sal_2D. Rename variable ids_s_int of
module oasis to ids_delta_sal. Change infosend(ids_delta_sal)%name
to "CODELSSS".

File:

• LMDZ6/branches/Ocean_skin/libf/phylmd/phys_output_ctrlout_mod.F90 (modified) (1 diff)

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

@@ -1951 +1951 @@
         "ocean-air interface temperature minus bulk SST", "K", '')
 
-   type(ctrl_out), save:: o_s_int &
-        = ctrl_out([1, 10, 10, 1, 10, 10, 11, 11, 11, 11], 'S_int', &
-        "ocean-air interface salinity", "ppt", '')
+   type(ctrl_out), save:: o_delta_sal &
+        = ctrl_out([1, 10, 10, 1, 10, 10, 11, 11, 11, 11], 'delta_sal', &
+        "ocean-air interface salinity minus bulk salinity", "ppt", '')
 
    type(ctrl_out), save:: o_ds_ns &
         = ctrl_out([1, 10, 10, 1, 10, 10, 11, 11, 11, 11], 'dS_ns', &
-        "delta salinity near surface", "ppt", '')
+        "subskin salinity minus foundation salinity", "ppt", '')
 
    type(ctrl_out), save:: o_dt_ns &
         = ctrl_out([1, 10, 10, 1, 10, 10, 11, 11, 11, 11], 'dT_ns', &
-        "sub-skin temperature minus foundation temperature", "K", '')
+        "subskin temperature minus foundation temperature", "K", '')
 
    type(ctrl_out), save:: o_dter &
         = ctrl_out([1, 10, 10, 1, 10, 10, 11, 11, 11, 11], 'dTer', &
-        "interface temperature minus sub-skin temperature", "K", '')
+        "ocean-air interface temperature minus sub-skin temperature", "K", '')
 
    type(ctrl_out), save:: o_dser &
         = ctrl_out([1, 10, 10, 1, 10, 10, 11, 11, 11, 11], 'dSer', &
-        "salinity variation in the diffusive microlayer", "ppt", '')
+        "ocean-air interface salinity minus sub-skin salinity", "ppt", '')
 
    type(ctrl_out), save:: o_tkt &