Changeset 8824


Ignore:
Timestamp:
2017-11-27T16:07:46+01:00 (3 years ago)
Author:
clem
Message:

solve compilation issue without key_lim3

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r7881_ENHANCE09_RK3/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

    r8813 r8824  
    19341934         dqns_ice(:,:,:) = zdqns_ice(:,:,:) 
    19351935      ENDIF 
    1936        
     1936 
    19371937      !                                                      ! ========================= ! 
    19381938      SELECT CASE( TRIM( sn_rcv_iceflx%cldes ) )             !    topmelt and botmelt    ! 
     
    19431943      END SELECT 
    19441944 
     1945#if defined key_lim3 
    19451946      !                                                      ! ========================= ! 
    19461947      !                                                      !      Transmitted Qsr      !   [W/m2] 
     
    19931994      END SELECT 
    19941995      ! 
     1996#endif 
    19951997      IF( nn_timing == 1 )   CALL timing_stop('sbc_cpl_ice_flx') 
    19961998      ! 
Note: See TracChangeset for help on using the changeset viewer.