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

Legend:

Unmodified
Added
Removed

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

    r3628 r3638  
    192192    if (activate_ocean_skin == 2) then
    193193       infosend(ids_t_int)%action = .TRUE.
    194        infosend(ids_t_int)%name = 'T_int'
     194       infosend(ids_t_int)%name = 'COSSTSKIN'
    195195       infosend(ids_s_int)%action = .TRUE.
    196        infosend(ids_s_int)%name = 'S_int'
     196       infosend(ids_s_int)%name = 'COSSSSKIN'
    197197    end if
    198198           
    … …  
    236236   if (activate_ocean_skin >= 1) then
    237237      inforecv(idr_sss)%action = .TRUE.
    238       inforecv(idr_sss)%name = 'salinity'
     238      inforecv(idr_sss)%name = 'O_SSSSS'
    239239   end if
    240240   
Note: See TracChangeset for help on using the changeset viewer.