Ignore:
Timestamp:
2018-07-19T17:58:12+02:00 (3 years ago)
Author:
acc
Message:

Branch: dev_r9956_ENHANCE05_ZAD_AIMP. First set of changes to implement an adaptive-implicit vertical advection option (see ticket #2042). This code compiles and runs but has issues when the new option is activated.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2018/dev_r9956_ENHANCE05_ZAD_AIMP/src/OCE/DOM/domvvl.F90

    r9957 r9976  
    149149 
    150150      ! We need to define e3[tuv]_a for AGRIF initialisation (should not be a problem for the restartability...) 
    151       e3t_a(:,:,:) = e3t_n(:,:,:) 
    152       e3u_a(:,:,:) = e3u_n(:,:,:) 
    153       e3v_a(:,:,:) = e3v_n(:,:,:) 
     151      e3t_a (:,:,:) = e3t_n (:,:,:) 
     152      e3u_a (:,:,:) = e3u_n (:,:,:) 
     153      e3v_a (:,:,:) = e3v_n (:,:,:) 
     154      e3uw_a(:,:,:) = e3uw_n(:,:,:) 
     155      e3vw_a(:,:,:) = e3vw_n(:,:,:) 
    154156      ! 
    155157      !                    !==  depth of t and w-point  ==!   (set the isf depth as it is in the initial timestep) 
     
    534536      END IF 
    535537 
    536       ! *********************************** ! 
    537       ! After scale factors at u- v- points ! 
    538       ! *********************************** ! 
     538      ! ******************************************* ! 
     539      ! After scale factors at u- v- uw- vw- points ! 
     540      ! ******************************************* ! 
    539541 
    540542      CALL dom_vvl_interpol( e3t_a(:,:,:), e3u_a(:,:,:), 'U' ) 
    541543      CALL dom_vvl_interpol( e3t_a(:,:,:), e3v_a(:,:,:), 'V' ) 
     544      CALL dom_vvl_interpol( e3u_a(:,:,:), e3uw_a(:,:,:), 'UW' ) 
     545      CALL dom_vvl_interpol( e3v_a(:,:,:), e3vw_a(:,:,:), 'VW' ) 
    542546 
    543547      ! *********************************** ! 
Note: See TracChangeset for help on using the changeset viewer.