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

Timestamp:

2019-10-29T12:00:04+01:00 (4 years ago)

Author:

mathiot

Message:

rm useless USE statement, option compatibility test + minor changes

File:

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

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

@@ -86 +86 @@
          END DO  
       END DO
-
-      ztmp = 0.0
-      DO jk = jpkm1,1,-1
-         ztmp(:,:) = ztmp(:,:) + hdivn(:,:,jk) * e3t_n(:,:,jk)
-      END DO
-      CALL debug('divhor 1',ztmp)
-
+      !
 #if defined key_agrif
       IF( .NOT. Agrif_Root() ) THEN
@@ -102 +96 @@
 #endif
       !
-      IF( ln_rnf )   CALL sbc_rnf_div( hdivn )              !==  runoffs    ==!   (update hdivn field)
+      IF( ln_rnf )                      CALL sbc_rnf_div( hdivn )       !==  runoffs    ==!   (update hdivn field)
       !
 #if defined key_asminc 
@@ -109 +103 @@
 #endif
       !
-      IF( ln_isf .OR. ln_isfcpl )   CALL isf_hdiv( kt, hdivn )      !==  ice shelf  ==!   (update hdivn field)
+      IF( ln_isf .AND. kt /= 0 )        CALL isf_hdiv( kt, hdivn )      !==  ice shelf  ==!   (update hdivn field)
       !
       CALL lbc_lnk( 'divhor', hdivn, 'T', 1. )   !   (no sign change)
-      !
-      ztmp = 0.0
-      DO jk = jpkm1,1,-1
-         ztmp(:,:) = ztmp(:,:) + hdivn(:,:,jk) * e3t_n(:,:,jk)
-      END DO
-      CALL debug('divhor 2',ztmp)
       !
       IF( ln_timing )   CALL timing_stop('div_hor')