Changeset 12171


Ignore:
Timestamp:
2019-12-11T10:36:23+01:00 (6 months ago)
Author:
smasson
Message:

trunk: minor cleaning in sbccpl, see #2313

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/SBC/sbccpl.F90

    r12137 r12171  
    868868      ELSE IF( sn_snd_crt%clvgrd /= 'T' ) THEN   
    869869         CALL ctl_stop( 'sn_snd_crt%clvgrd must be equal to T' ) 
    870          ssnd(jps_ocx1:jps_ivz1)%clgrid  = 'T'      ! all oce and ice components on the same unique grid 
    871870      ENDIF 
    872871      ssnd(jps_ocx1:jps_ivz1)%laction = .TRUE.   ! default: all are send 
Note: See TracChangeset for help on using the changeset viewer.