Changeset 11529 for NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/DYN/divhor.F90

Timestamp:

2019-09-10T18:35:59+02:00 (5 years ago)

Author:

mathiot

Message:

ENHANCE-02_ISF: fixes for ice sheet coupling (ticket #2142)

File:

• NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/DYN/divhor.F90 (modified) (1 diff)

NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/DYN/divhor.F90

@@ -100 +100 @@
       ! 
 #endif
-      CALL debug('isfdivdebug 0',hdivn)
-      IF( ln_isf .OR. ll_isfcpl_cons )   CALL isf_hdiv( kt, hdivn )      !==  ice shelf  ==!   (update hdivn field)
-      CALL debug('isfdivdebug 3',hdivn)
+      !
+      IF( ln_isf .OR. ln_isfcpl )   CALL isf_hdiv( kt, hdivn )      !==  ice shelf  ==!   (update hdivn field)
       !
       CALL lbc_lnk( 'divhor', hdivn, 'T', 1. )   !   (no sign change)