New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 4616 for branches/2014/dev_CNRS0_NOC1_LDF/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfgls.F90 – NEMO

Ignore:
Timestamp:
2014-04-06T17:28:25+02:00 (10 years ago)
Author:
gm
Message:

#1260 : see the associated wiki page for explanation

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2014/dev_CNRS0_NOC1_LDF/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfgls.F90

    r4147 r4616  
    112112#  include "vectopt_loop_substitute.h90" 
    113113   !!---------------------------------------------------------------------- 
    114    !! NEMO/OPA 3.3 , NEMO Consortium (2010) 
     114   !! NEMO/OPA 3.7 , NEMO Consortium (2014) 
    115115   !! $Id$ 
    116116   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
    … …  
    174174 
    175175      ! Compute surface and bottom friction at T-points 
    176 !CDIR NOVERRCHK 
    177176      DO jj = 2, jpjm1 
    178 !CDIR NOVERRCHK 
    179177         DO ji = fs_2, fs_jpim1   ! vector opt. 
    180178            !  
    … …  
    387385         !                      ! en(ibot) = u*^2 / Co2 and mxln(ibot) = rn_lmin 
    388386         !                      ! Balance between the production and the dissipation terms 
    389 !CDIR NOVERRCHK 
    390          DO jj = 2, jpjm1 
    391 !CDIR NOVERRCHK 
     387         DO jj = 2, jpjm1 
    392388            DO ji = fs_2, fs_jpim1   ! vector opt. 
    393389               ibot   = mbkt(ji,jj) + 1      ! k   bottom level of w-point 
    … …  
    410406      CASE ( 1 )             ! Neumman boundary condition 
    411407         !                       
    412 !CDIR NOVERRCHK 
    413          DO jj = 2, jpjm1 
    414 !CDIR NOVERRCHK 
     408         DO jj = 2, jpjm1 
    415409            DO ji = fs_2, fs_jpim1   ! vector opt. 
    416410               ibot   = mbkt(ji,jj) + 1      ! k   bottom level of w-point 
    … …  
    650644         !                      ! en(ibot) = u*^2 / Co2 and mxln(ibot) = vkarmn * hbro 
    651645         !                      ! Balance between the production and the dissipation terms 
    652 !CDIR NOVERRCHK 
    653          DO jj = 2, jpjm1 
    654 !CDIR NOVERRCHK 
     646         DO jj = 2, jpjm1 
    655647            DO ji = fs_2, fs_jpim1   ! vector opt. 
    656648               ibot   = mbkt(ji,jj) + 1      ! k   bottom level of w-point 
    … …  
    673665      CASE ( 1 )             ! Neumman boundary condition 
    674666         !                       
    675 !CDIR NOVERRCHK 
    676          DO jj = 2, jpjm1 
    677 !CDIR NOVERRCHK 
     667         DO jj = 2, jpjm1 
    678668            DO ji = fs_2, fs_jpim1   ! vector opt. 
    679669               ibot   = mbkt(ji,jj) + 1      ! k   bottom level of w-point 
Note: See TracChangeset for help on using the changeset viewer.