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 6608 – NEMO

Changeset 6608


Ignore:
Timestamp:
2016-05-24T12:51:36+02:00 (8 years ago)
Author:
drew
Message:

This is byte compatible with the earlier revision -- but cleaner.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_sshinc_with_VVL/NEMOGCM/NEMO/OPA_SRC/DYN/sshwzv.F90

    r6605 r6608  
    104104! Don't directly adjust ssh but change hdivn at all levels instead 
    105105! In trasbc also add in the heat and salt content associated with these changes at each level   
    106         call lbc_lnk( ssh_iau, 'T', 1.0)  
    107106        DO jk = 1, jpkm1                                  
    108             DO jj = 2, jpjm1 
    109                DO ji = fs_2, fs_jpim1   ! vector opt. 
    110                  hdivn(ji,jj,jk) = hdivn(ji,jj,jk) - ( ssh_iau(ji,jj) / ( ht_0(ji,jj) + 1.0 - tmask(ji,jj,jk) ) ) * ( e3t_0(ji,jj,jk) / fse3t_n(ji,jj,jk) ) * tmask(ji,jj,jk)  
    111                END DO 
    112             END DO 
     107                 hdivn(:,:,jk) = hdivn(:,:,jk) - ( ssh_iau(:,:) / ( ht_0(:,:) + 1.0 - ssmask(:,:) ) ) * ( e3t_0(:,:,jk) / fse3t_n(:,:,jk) ) * tmask(:,:,jk)  
    113108        END DO 
    114109        CALL lbc_lnk( hdivn, 'T', 1. ) ! Not sure that's necessary 
Note: See TracChangeset for help on using the changeset viewer.