Changeset 3652 for LMDZ6/branches


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed

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

    r3639 r3652  
    191191    if (activate_ocean_skin == 2) then
    192192       infosend(ids_t_int)%action = .TRUE.
    193        infosend(ids_t_int)%name = 'COSSTSKIN'
     193       infosend(ids_t_int)%name = 'COSSTSKN'
    194194       infosend(ids_s_int)%action = .TRUE.
    195        infosend(ids_s_int)%name = 'COSSSSKIN'
     195       infosend(ids_s_int)%name = 'COSSSSKN'
    196196    end if
    197197           
Note: See TracChangeset for help on using the changeset viewer.