Ignore:
Timestamp:
2017-05-15T17:54:57+02:00 (3 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:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/OPA_SRC/TRA/eosbn2.F90

    r6506 r8026  
    697697      CASE( -1, 0 )                !==  polynomial TEOS-10 / EOS-80 ==! 
    698698         ! 
    699          DO jj = 1, jpjm1 
    700             DO ji = 1, fs_jpim1   ! vector opt. 
     699         DO jj = 1, jpj 
     700            DO ji = 1, jpi 
    701701               ! 
    702702               zh  = pdep(ji,jj) * r1_Z0                                  ! depth 
     
    750750         END DO 
    751751         ! 
    752          CALL lbc_lnk( pab(:,:,jp_tem), 'T', 1. )                    ! Lateral boundary conditions 
    753          CALL lbc_lnk( pab(:,:,jp_sal), 'T', 1. )                     
    754          ! 
    755752      CASE( 1 )                  !==  simplified EOS  ==! 
    756753         ! 
    757          DO jj = 1, jpjm1 
    758             DO ji = 1, fs_jpim1   ! vector opt. 
     754         DO jj = 1, jpj 
     755            DO ji = 1, jpi 
    759756               ! 
    760757               zt    = pts  (ji,jj,jp_tem) - 10._wp   ! pot. temperature anomaly (t-T0) 
     
    770767            END DO 
    771768         END DO 
    772          ! 
    773          CALL lbc_lnk( pab(:,:,jp_tem), 'T', 1. )                    ! Lateral boundary conditions 
    774          CALL lbc_lnk( pab(:,:,jp_sal), 'T', 1. )                     
    775769         ! 
    776770      CASE DEFAULT 
Note: See TracChangeset for help on using the changeset viewer.