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 4665 for branches/2012 – NEMO

Changeset 4665 for branches/2012


Ignore:
Timestamp:
2014-06-11T10:02:07+02:00 (10 years ago)
Author:
timgraham
Message:

Minor change to at line 1376 of sbccpl.f90 to index tsn with jp_tem instead of 1. See ticket #1336.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

    r4391 r4665  
    13701370         END SELECT 
    13711371      CASE( 'mixed oce-ice'        )    
    1372          ztmp1(:,:) = ( tsn(:,:,1,1) + rt0 ) * zfr_l(:,:)  
     1372         ztmp1(:,:) = ( tsn(:,:,1,jp_tem) + rt0 ) * zfr_l(:,:)  
    13731373         DO jl=1,jpl 
    13741374            ztmp1(:,:) = ztmp1(:,:) + tn_ice(:,:,jl) * a_i(:,:,jl) 
Note: See TracChangeset for help on using the changeset viewer.