Changeset 8824 for branches/2017/dev_r7881_ENHANCE09_RK3/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

Timestamp:

2017-11-27T16:07:46+01:00 (6 years ago)

Author:

clem

Message:

solve compilation issue without key_lim3

File:

• branches/2017/dev_r7881_ENHANCE09_RK3/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90 (modified) (3 diffs)

branches/2017/dev_r7881_ENHANCE09_RK3/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

@@ -1934 +1934 @@
          dqns_ice(:,:,:) = zdqns_ice(:,:,:)
       ENDIF
-      
+
       !                                                      ! ========================= !
       SELECT CASE( TRIM( sn_rcv_iceflx%cldes ) )             !    topmelt and botmelt    !
@@ -1943 +1943 @@
       END SELECT
 
+#if defined key_lim3
       !                                                      ! ========================= !
       !                                                      !      Transmitted Qsr      !   [W/m2]
@@ -1993 +1994 @@
       END SELECT
       !
+#endif
       IF( nn_timing == 1 )   CALL timing_stop('sbc_cpl_ice_flx')
       !