Changeset 3744 for LMDZ6/branches/Ocean_skin/libf/phylmd/oasis.F90

Timestamp:

Jul 1, 2020, 6:57:48 PM (4 years ago)

Author:

lguez

Message:

Store delta_sst instead of sst_nff

Store as a state variable the difference between ocean-air interface
temperature and bulk SST instead of sst_nff, which can be either
interface temperature or bulk SST. This is clearer. Also, it is
analoguous to what we will do with salinity.

So replace the two dummy arguments tsurf_in and sst_nff of
procedure cpl_send_ocean_fields by a single dummy argument
delta_sst. Replace dummy argument sst_nff of procedures
ocean_cpl_noice and surf_ocean by dummy argument
delta_sst. Replace variable sst_nff of module phys_state_var_mod
by variable delta_sst. Rename local variable ysst_nff of procedure
pbl_surface to ydelta_sst. Set variable delta_sst of module
phys_state_var_mod to 0 for an appearing ocean fraction and a
missing startup field. Replace variable o_sst_nff of module
phys_output_ctrlout_mod by variable o_delta_sst.

Rename variables cpl_delta_temp and cpl_delta_temp_2D of module
cpl_mod to cpl_delta_sst and cpl_delta_sst_2D, clearer. Rename
variable ids_delta_temp of module oasis to ids_delta_sst. Change
infosend(ids_delta_temp)%name to "CODELSST".

File:

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

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

@@ -59 +59 @@
   INTEGER, PARAMETER :: ids_qraiic = 28
   INTEGER, PARAMETER :: ids_qsnoic = 29
-  INTEGER, PARAMETER :: ids_delta_temp = 30, ids_s_int = 31
+  INTEGER, PARAMETER :: ids_delta_sst = 30, ids_s_int = 31
   
   INTEGER, PARAMETER :: maxsend    = 31  ! Maximum number of fields to send
@@ -190 +190 @@
     
     if (activate_ocean_skin == 2) then
-       infosend(ids_delta_temp)%action = .TRUE.
-       infosend(ids_delta_temp)%name = 'CODTEMP'
+       infosend(ids_delta_sst)%action = .TRUE.
+       infosend(ids_delta_sst)%name = 'CODELSST'
        infosend(ids_s_int)%action = .TRUE.
        infosend(ids_s_int)%name = 'COSSSSKN'