Changeset 14995 for NEMO/trunk/src/OCE/SBC

Timestamp:

2021-06-15T19:15:26+02:00 (3 years ago)

Author:

mathiot

Message:

ticket #2669 : merge ticket2669_isf_fluxes into trunk

File:

• NEMO/trunk/src/OCE/SBC/sbccpl.F90 (modified) (2 diffs)

NEMO/trunk/src/OCE/SBC/sbccpl.F90

@@ -285 +285 @@
          &                  sn_rcv_charn , sn_rcv_taw   , sn_rcv_bhd  , sn_rcv_tusd  , sn_rcv_tvsd,    &
          &                  sn_rcv_wdrag , sn_rcv_qns   , sn_rcv_emp  , sn_rcv_rnf   , sn_rcv_cal  ,   &
-         &                  sn_rcv_iceflx, sn_rcv_co2   , sn_rcv_icb  , sn_rcv_isf   , sn_rcv_ts_ice !!, sn_rcv_qtrice
+         &                  sn_rcv_iceflx, sn_rcv_co2   , sn_rcv_icb  , sn_rcv_isf   , sn_rcv_ts_ice,  & !!, sn_rcv_qtrice
+         &                  sn_rcv_mslp
 
       !!---------------------------------------------------------------------
@@ -528 +529 @@
          IF(lwp) WRITE(numout,*)
          IF(lwp) WRITE(numout,*) '   iceshelf received from oasis '
-         CALL ctl_stop('STOP','not coded')
-      ENDIF
+      ENDIF
+      !
       !
       !                                                      ! ------------------------- !