Changeset 8882 for branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/OPA_SRC/TRA/zpshde.F90

Timestamp:

2017-12-01T18:44:09+01:00 (6 years ago)

Author:

flavoni

Message:

dev_CNRS_2017 branch: merged dev_r7881_ENHANCE09_RK3 with trunk r8864

File:

• branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/OPA_SRC/TRA/zpshde.F90 (modified) (5 diffs)

branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/OPA_SRC/TRA/zpshde.F90

@@ -22 +22 @@
    USE lbclnk          ! lateral boundary conditions (or mpp link)
    USE lib_mpp         ! MPP library
-   USE wrk_nemo        ! Memory allocation
    USE timing          ! Timing
 
@@ -99 +98 @@
       !!----------------------------------------------------------------------
       !
-      IF( nn_timing == 1 )   CALL timing_start( 'zps_hde')
-      !
-      pgtu(:,:,:)=0._wp   ;   zti (:,:,:)=0._wp   ;   zhi (:,:  )=0._wp
-      pgtv(:,:,:)=0._wp   ;   ztj (:,:,:)=0._wp   ;   zhj (:,:  )=0._wp
+      IF( ln_timing )   CALL timing_start( 'zps_hde')
+      !
+      pgtu(:,:,:) = 0._wp   ;   zti (:,:,:) = 0._wp   ;   zhi (:,:) = 0._wp
+      pgtv(:,:,:) = 0._wp   ;   ztj (:,:,:) = 0._wp   ;   zhj (:,:) = 0._wp
       !
       DO jn = 1, kjpt      !==   Interpolation of tracers at the last ocean level   ==!
@@ -188 +187 @@
       END IF
       !
-      IF( nn_timing == 1 )   CALL timing_stop( 'zps_hde')
+      IF( ln_timing )   CALL timing_stop( 'zps_hde')
       !
    END SUBROUTINE zps_hde
-   !
+
+
    SUBROUTINE zps_hde_isf( kt, kjpt, pta, pgtu, pgtv, pgtui, pgtvi,  &
       &                          prd, pgru, pgrv, pgrui, pgrvi )
@@ -256 +256 @@
       !!----------------------------------------------------------------------
       !
-      IF( nn_timing == 1 )  CALL timing_start( 'zps_hde_isf')
+      IF( ln_timing )   CALL timing_start( 'zps_hde_isf')
       !
       pgtu (:,:,:) = 0._wp   ;   pgtv (:,:,:) =0._wp
@@ -453 +453 @@
       END IF  
       !
-      IF( nn_timing == 1 )   CALL timing_stop( 'zps_hde_isf')
+      IF( ln_timing )   CALL timing_stop( 'zps_hde_isf')
       !
    END SUBROUTINE zps_hde_isf
+
    !!======================================================================
 END MODULE zpshde