Changeset 8026 for branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/OPA_SRC/TRA/eosbn2.F90

Timestamp:

2017-05-15T17:54:57+02:00 (7 years ago)

Author:

lovato

Message:

3.6 stable: solve ticket #1835 and add following fixes (tested with SETTE):

• add key_offline control in zdfddm_substitute.h90
• use loop index in rab2d as in rab3d, and take out lbc calls
• make atm_co2 always accessible from sbc_oce
• update sette scripts for athena cluster

File:

• branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/OPA_SRC/TRA/eosbn2.F90 (modified) (3 diffs)

branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/OPA_SRC/TRA/eosbn2.F90

@@ -697 +697 @@
       CASE( -1, 0 )                !==  polynomial TEOS-10 / EOS-80 ==!
          !
-         DO jj = 1, jpjm1
-            DO ji = 1, fs_jpim1   ! vector opt.
+         DO jj = 1, jpj
+            DO ji = 1, jpi
                !
                zh  = pdep(ji,jj) * r1_Z0                                  ! depth
@@ -750 +750 @@
          END DO
          !
-         CALL lbc_lnk( pab(:,:,jp_tem), 'T', 1. )                    ! Lateral boundary conditions
-         CALL lbc_lnk( pab(:,:,jp_sal), 'T', 1. )                    
-         !
       CASE( 1 )                  !==  simplified EOS  ==!
          !
-         DO jj = 1, jpjm1
-            DO ji = 1, fs_jpim1   ! vector opt.
+         DO jj = 1, jpj
+            DO ji = 1, jpi
                !
                zt    = pts  (ji,jj,jp_tem) - 10._wp   ! pot. temperature anomaly (t-T0)
@@ -770 +767 @@
             END DO
          END DO
-         !
-         CALL lbc_lnk( pab(:,:,jp_tem), 'T', 1. )                    ! Lateral boundary conditions
-         CALL lbc_lnk( pab(:,:,jp_sal), 'T', 1. )                    
          !
       CASE DEFAULT