Changeset 3638

Timestamp:

Feb 19, 2020, 4:14:59 PM (5 years ago)

Author:

lguez

Message:

Change name of fields exchanged with the ocean, following choices of C. Eth\'e.

File:

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

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

@@ -192 +192 @@
     if (activate_ocean_skin == 2) then
        infosend(ids_t_int)%action = .TRUE.
-       infosend(ids_t_int)%name = 'T_int'
+       infosend(ids_t_int)%name = 'COSSTSKIN'
        infosend(ids_s_int)%action = .TRUE.
-       infosend(ids_s_int)%name = 'S_int'
+       infosend(ids_s_int)%name = 'COSSSSKIN'
     end if
            
@@ -236 +236 @@
    if (activate_ocean_skin >= 1) then
       inforecv(idr_sss)%action = .TRUE.
-      inforecv(idr_sss)%name = 'salinity'
+      inforecv(idr_sss)%name = 'O_SSSSS'
    end if