Ignore:
Timestamp:
2018-08-22T11:48:35+02:00 (2 years ago)
Author:
jchanut
Message:

ztilde update (1):
Add alternative vertical scale factor horizontal interpolations (dom_vvl_interpol). For simplicity, consider interpolations from T-points thicknesses, whatever the target point is. The default scheme is hardcoded and set to the actual interpolation scheme.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2018/dev_r10057_ENHANCE03_ZTILDE/src/OCE/DOM/domain.F90

    r9919 r10060  
    150150      hu_0(:,:) = 0._wp 
    151151      hv_0(:,:) = 0._wp 
     152      hf_0(:,:) = 0._wp 
    152153      DO jk = 1, jpk 
    153154         ht_0(:,:) = ht_0(:,:) + e3t_0(:,:,jk) * tmask(:,:,jk) 
     
    155156         hv_0(:,:) = hv_0(:,:) + e3v_0(:,:,jk) * vmask(:,:,jk) 
    156157      END DO 
     158      ! 
     159      DO jj=1, jpjm1 
     160         DO jk = 1, jpk 
     161            hf_0(:,jj) = hf_0(:,jj) + e3f_0(:,jj,jk) * umask(:,jj,jk)*umask(:,jj+1,jk) 
     162         END DO 
     163      END DO 
     164      CALL lbc_lnk( hf_0, 'F', 1._wp ) 
    157165      ! 
    158166      !           !==  time varying part of coordinate system  ==! 
Note: See TracChangeset for help on using the changeset viewer.