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

Timestamp:

Apr 1, 2020, 9:34:36 PM (5 years ago)

Author:

lguez

Message:

Bug fix: name of field received from the coupler

File:

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

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

@@ -235 +235 @@
    if (activate_ocean_skin >= 1) then
       inforecv(idr_sss)%action = .TRUE.
-      inforecv(idr_sss)%name = 'O_SSSSS'
+      inforecv(idr_sss)%name = 'SISUSALW'
    end if