Changeset 7150


Ignore:
Timestamp:
2016-10-27T18:03:23+02:00 (4 years ago)
Author:
jcastill
Message:

Move one line of code to allow merging with another branch

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/r5936_hadgem3_cplfld/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

    r7139 r7150  
    17581758            ! 
    17591759            SELECT CASE( sn_snd_temp%cldes) 
    1760             CASE( 'none'         )       ! nothing to do 
    17611760            CASE( 'oce only'             )   ;   ztmp1(:,:) =   ztmp1(:,:) + rt0 
    17621761            CASE( 'oce and ice'          )   ;   ztmp1(:,:) =   ztmp1(:,:) + rt0 
     
    17881787                  ztmp1(:,:) = ztmp1(:,:) + tn_ice(:,:,jl) * a_i(:,:,jl) 
    17891788               ENDDO 
     1789            CASE( 'none'         )       ! nothing to do 
    17901790            CASE default                     ;   CALL ctl_stop( 'sbc_cpl_snd: wrong definition of sn_snd_temp%cldes' ) 
    17911791            END SELECT 
Note: See TracChangeset for help on using the changeset viewer.