Possible uninitialised variables in sbccpl

[timgraham]

Context

In the following lines of code the syntax in the ELSE IF part seems wrong as there is a call to ctl_stop followed by another line of code that can never be run

     IF( sn_snd_crt%clvgrd == 'U,V' ) THEN
         ssnd(jps_ocx1)%clgrid = 'U' ; ssnd(jps_ocy1)%clgrid = 'V'
     ELSE IF( sn_snd_crt%clvgrd /= 'T' ) THEN  
         CALL ctl_stop( 'sn_snd_crt%clvgrd must be equal to T' )
         ssnd(jps_ocx1:jps_ivz1)%clgrid  = 'T'      ! all oce and ice components on the same unique grid
     ENDIF

…

Analysis

If sn_snd_crt%clvgrd = 'T' then the code will continue to run but the variables ssnd(jps_ocx1:jps_ivz1)%clgrid won't be initialised to 'T' potentially causing problems later in the run.

Fix

Perhaps the code should be:

     IF( sn_snd_crt%clvgrd == 'U,V' ) THEN
         ssnd(jps_ocx1)%clgrid = 'U' ; ssnd(jps_ocy1)%clgrid = 'V'
     ELSE IF( sn_snd_crt%clvgrd == 'T' ) THEN  
         ssnd(jps_ocx1:jps_ivz1)%clgrid  = 'T'      ! all oce and ice components on the same unique grid
     ELSE
         CALL ctl_stop( 'sn_snd_crt%clvgrd must be equal to T or 'U,V' )
     ENDIF

I'm not able to test this change as we couple on the 'U,V' grids.

[smasson]

In 12171:

trunk: minor cleaning in sbccpl, see #2313