Changeset 10128


Ignore:
Timestamp:
2018-09-13T18:35:13+02:00 (23 months ago)
Author:
jchanut
Message:

ztilde update, #2126: use lbc_lnk_multi + some changes after using more severe compilation options

Location:
NEMO/branches/2018/dev_r10057_ENHANCE03_ZTILDE
Files:
2 edited

Legend:

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

    r10126 r10128  
    579579!         vn_td(:,:,:) = vn_td(:,:,:) + ztv(:,:,:) 
    580580 
    581          CALL lbc_lnk( un_td , 'U' , -1.) 
    582          CALL lbc_lnk( vn_td , 'V' , -1.)  
     581         CALL lbc_lnk_multi( un_td, 'U', -1., vn_td, 'V', -1. )     !* local domain boundaries 
    583582         ! 
    584583         CALL dom_vvl_ups_cor( kt, tilde_e3t_a, un_td, vn_td ) 
     
    16641663                  jk = i_int_bot(ji,jj) 
    16651664                  hsm(ji,jj) = zfrac_bot * e3w_1d(jk) 
    1666 !                  dsm(ji,jj) = MAX(dsm(ji,jj), 0.1_wp*ht_0(ji,jj)) 
     1665                  dsm(ji,jj) = MAX(dsm(ji,jj), 0.05_wp*ht_0(ji,jj)) 
    16671666               END DO 
    16681667            END DO 
     
    16721671                  jk = i_int_bot(ji,jj) 
    16731672                  hsm(ji,jj) = zfrac_bot * e3w_0(ji,jj,jk) 
    1674 !                  dsm(ji,jj) = MAX(dsm(ji,jj), 0.1_wp*ht_0(ji,jj)) 
     1673                  dsm(ji,jj) = MAX(dsm(ji,jj), 0.05_wp*ht_0(ji,jj)) 
    16751674               END DO 
    16761675            END DO 
     
    21172116      END DO 
    21182117       
    2119       CALL lbc_lnk( zwx, 'U', -1. )   ;   CALL lbc_lnk( zwy, 'V', -1. )         ! Lateral boundary conditions 
     2118      CALL lbc_lnk_multi( zwx, 'U', -1., zwy, 'V', -1. )     !* local domain boundaries 
    21202119 
    21212120      ! 4. monotonicity algorithm 
     
    21872186         END DO 
    21882187      ENDDO 
    2189  
     2188  
    21902189      ! Compute upstream depths: 
    21912190      zhu_b(:,:) = 0.e0 
     
    22482247      ENDIF 
    22492248 
     2249      CALL lbc_lnk_multi( zhu_b(:,:), 'U', 1., zhv_b(:,:), 'V', 1. )     !* local domain boundaries 
     2250 
    22502251      ! Corrective barotropic velocity (times hor. scale factor) 
    22512252      zbu(:,:) = zbu(:,:)/ (zhu_b(:,:)*umask(:,:,1)+1._wp-umask(:,:,1)) 
    22522253      zbv(:,:) = zbv(:,:)/ (zhv_b(:,:)*vmask(:,:,1)+1._wp-vmask(:,:,1)) 
    2253  
    2254       CALL lbc_lnk( zbu(:,:), 'U', -1. ) 
    2255       CALL lbc_lnk( zbv(:,:), 'V', -1. ) 
    22562254       
    22572255      ! Set corrective fluxes in upstream direction: 
     
    22592257      zwx(:,:,:) = 0.e0 
    22602258      zwy(:,:,:) = 0.e0 
     2259 
    22612260      IF ( ll_shorizd ) THEN 
    22622261         DO jj = 1, jpjm1 
     
    23092308         END DO 
    23102309      ENDIF 
    2311       CALL lbc_lnk( zwx, 'U', -1. )   ;   CALL lbc_lnk( zwy, 'V', -1. )         ! Lateral boundary conditions 
     2310 
     2311      CALL lbc_lnk_multi( zwx, 'U', -1., zwy, 'V', -1. )     !* local domain boundaries 
    23122312 
    23132313      uin(:,:,:) = uin(:,:,:) + zwx(:,:,:) 
     
    24052405         END DO 
    24062406      END DO 
    2407  
    2408       CALL lbc_lnk( zbetup, 'T', 1. )   ;   CALL lbc_lnk( zbetdo, 'T', 1. )   ! lateral boundary cond. (unchanged sign) 
     2407      CALL lbc_lnk_multi( zbetup, 'T', 1. , zbetdo, 'T', 1. )   ! lateral boundary cond. (unchanged sign) 
    24092408 
    24102409      ! 3. monotonic flux in the i & j direction (paa & pbb) 
     
    24252424         END DO 
    24262425      END DO 
    2427       CALL lbc_lnk( paa, 'U', -1. )   ;   CALL lbc_lnk( pbb, 'V', -1. )   ! lateral boundary condition (changed sign) 
     2426      CALL lbc_lnk_multi( paa, 'U', -1., pbb, 'V', -1. )     !* local domain boundaries 
    24282427      ! 
    24292428      IF( ln_timing )  CALL timing_stop('nonosc2') 
  • NEMO/branches/2018/dev_r10057_ENHANCE03_ZTILDE/tests/COMODO-IW/EXPREF/namelist_cfg

    r10121 r10128  
    137137   ln_dyn3d_dmp  =.true.,.true.  !  open boundary condition for baroclinic velocities 
    138138   rn_time_dmp   =  0.05,0.05    !  Damping time scale in days 
     139   rn_time_dmp_out =  0.05,0.05  !  Outflow damping time scale in days 
    139140   nn_rimwidth   = 155,155       !  width of the relaxation zone 
    140141/ 
Note: See TracChangeset for help on using the changeset viewer.