Changeset 9161 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/DOM/closea.F90

Timestamp:

2017-12-22T11:31:53+01:00 (6 years ago)

Author:

davestorkey

Message:

Reformulation of closea module.
See ticket #2000
https://forge.ipsl.jussieu.fr/nemo/wiki/2017WP/ROBUST-14_Dave_Storkey-Closed_Seas_rewrite

File:

• branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/DOM/closea.F90 (copied) (copied from branches/UKMO/dev_r8600_closea_rewrite/NEMOGCM/NEMO/OPA_SRC/DOM/closea.F90) (5 diffs)

branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/DOM/closea.F90

@@ -29 +29 @@
    USE lbclnk          ! lateral boundary condition - MPP exchanges
    USE lib_mpp         ! MPP library
-   USE timing
+   USE timing          ! Timing
 
    IMPLICIT NONE
@@ -65 +65 @@
    !!----------------------------------------------------------------------
    !! NEMO/OPA 4.0 , NEMO Consortium (2016)
-   !! $Id$
+   !! $Id: usrdef_closea.F90 9124 2017-12-19 08:26:25Z gm $
    !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
    !!----------------------------------------------------------------------
@@ -203 +203 @@
       !!----------------------------------------------------------------------
       !
-      IF( nn_timing == 1 )  CALL timing_start('sbc_clo')
+      IF( ln_timing )  CALL timing_start('sbc_clo')
       !
       !                                                   !------------------! 
@@ -328 +328 @@
       IF( jncse > 0 ) THEN
          !
-         ! 3. Work out total fluxes over empmr source areas and add to empmr target areas. If jncse is zero does not loop. 
+         ! 3. Work out total fluxes over empmr source areas and add to empmr target areas. 
          !
          DO jce = 1, jncse
@@ -387 +387 @@
       CALL lbc_lnk( emp , 'T', 1._wp )
       !
-      IF( nn_timing == 1 )  CALL timing_stop('sbc_clo')
-      !
    END SUBROUTINE sbc_clo