Changeset 4616 for branches/2014/dev_CNRS0_NOC1_LDF/NEMOGCM/NEMO/OPA_SRC/TRA/eosbn2.F90

Timestamp:

2014-04-06T17:28:25+02:00 (10 years ago)

Author:

gm

Message:

#1260 : see the associated wiki page for explanation

File:

• branches/2014/dev_CNRS0_NOC1_LDF/NEMOGCM/NEMO/OPA_SRC/TRA/eosbn2.F90 (modified) (3 diffs)

branches/2014/dev_CNRS0_NOC1_LDF/NEMOGCM/NEMO/OPA_SRC/TRA/eosbn2.F90

@@ -133 +133 @@
       !
       CASE( 0 )                !==  Jackett and McDougall (1994) formulation  ==!
-!CDIR NOVERRCHK
+         !
          zws(:,:,:) = SQRT( ABS( pts(:,:,:,jp_sal) ) )
          !
@@ -265 +265 @@
       !
       CASE( 0 )                !==  Jackett and McDougall (1994) formulation  ==!
-!CDIR NOVERRCHK
+         !
          zws(:,:,:) = SQRT( ABS( pts(:,:,:,jp_sal) ) )
          !
@@ -394 +394 @@
       !
       CASE( 0 )                !==  Jackett and McDougall (1994) formulation  ==!
-      !
-!CDIR NOVERRCHK
+         !
          DO jj = 1, jpjm1
-!CDIR NOVERRCHK
             DO ji = 1, fs_jpim1   ! vector opt.
                zws(ji,jj) = SQRT( ABS( pts(ji,jj,jp_sal) ) )