Changeset 3652 for LMDZ6/branches/Ocean_skin/libf/phylmd

Timestamp:

Mar 23, 2020, 2:43:27 PM (5 years ago)

Author:

lguez

Message:

Bug fix: the names of coupling fields should be no more than 8
characters long, according to definition of type fld_cpl.

File:

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

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

@@ -191 +191 @@
     if (activate_ocean_skin == 2) then
        infosend(ids_t_int)%action = .TRUE.
-       infosend(ids_t_int)%name = 'COSSTSKIN'
+       infosend(ids_t_int)%name = 'COSSTSKN'
        infosend(ids_s_int)%action = .TRUE.
-       infosend(ids_s_int)%name = 'COSSSSKIN'
+       infosend(ids_s_int)%name = 'COSSSSKN'
     end if