Ignore:
Timestamp:
Dec 19, 2025, 11:46:41 AM (3 weeks ago)
Author:
yann meurdesoif
Message:

GPU port of surf_ocean
Merge of commit r5896
YM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/surface_data.f90

    r5662 r5968  
    33!
    44MODULE surface_data
    5 
     5  USE s2s, ONLY : s2s_str_maxlen
    66  IMPLICIT NONE
    77
    … …  
    1515  !$OMP THREADPRIVATE(type_veget)
    1616
    17   CHARACTER(len=6), SAVE :: type_ocean    ! force/slab/couple
     17  CHARACTER(len=s2s_str_maxlen), SAVE :: type_ocean    ! force/slab/couple
    1818  !$OMP THREADPRIVATE(type_ocean)
    1919
    … …  
    6363  ! if type_ocean=couple : version_ocean=opa8 ou nemo
    6464  ! if type_ocean=slab   : version_ocean=sicOBS or sicINT or sicNO
    65   CHARACTER(len=6), SAVE :: version_ocean
     65  CHARACTER(len=s2s_str_maxlen), SAVE :: version_ocean
    6666  !$OMP THREADPRIVATE(version_ocean)
    6767
Note: See TracChangeset for help on using the changeset viewer.