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 15574 for NEMO/branches/2021/dev_r14318_RK3_stage1/src/NST/agrif_all_update.F90 – NEMO

Ignore:
Timestamp:
2021-12-03T20:32:50+01:00 (3 years ago)
Author:
techene
Message:

#2605 #2715 trunk merged into dev_r14318_RK3_stage1

Location:
NEMO/branches/2021/dev_r14318_RK3_stage1
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2021/dev_r14318_RK3_stage1

    • Property svn:externals

      •  

        old new  
        99 
        1010# SETTE 
        11 ^/utils/CI/sette@14244        sette 
         11^/utils/CI/sette@HEAD        sette 
         12 

  • NEMO/branches/2021/dev_r14318_RK3_stage1/src/NST/agrif_all_update.F90

    r12377 r15574  
    6161      CALL agrif_update_ice()                      ! Update sea ice 
    6262#endif 
    63       IF (lwp.AND.lk_agrif_debug) Write(*,*) ' <-- END AGRIF UPDATE from grid Number',Agrif_Fixed() 
    6463      ! 
    6564      Agrif_UseSpecialValueInUpdate = .FALSE. 
    66     END SUBROUTINE agrif_Update_All 
     65      ! 
     66      ! If zooms are crossing or are coincident with cyclic boundaries 
     67      ! need to update ghost points on parent edges: 
     68      IF ( (Agrif_Parent(l_Iperio).OR.Agrif_Parent(l_NFold)).AND. & 
     69         & (( Agrif_Ix() <= 1  ).OR.( Agrif_Iy() + nbcellsy/AGRIF_Irhoy() >=  Agrif_Parent(Nj0glo) - 1 ))) THEN 
     70         CALL Agrif_ChildGrid_To_ParentGrid() 
     71         CALL finalize_lbc_for_agrif  
     72         CALL Agrif_ParentGrid_To_ChildGrid() 
     73      ENDIF 
     74 
     75      IF (lwp.AND.lk_agrif_debug) Write(*,*) ' <-- END AGRIF UPDATE from grid Number',Agrif_Fixed() 
     76 
     77   END SUBROUTINE agrif_Update_All 
     78 
     79   SUBROUTINE finalize_lbc_for_agrif 
     80      !!--------------------------------------------- 
     81      !!  *** ROUTINE finalize lbc_for-agrif *** 
     82      !!--------------------------------------------- 
     83      USE lbclnk  
     84#if defined key_qco 
     85      USE domqco 
     86#endif 
     87      ! 
     88      CALL lbc_lnk( 'finalize_lbc_for_agrif', uu(:,:,:,       Kmm_a), 'U', -1._wp,  & 
     89           &                                  vv(:,:,:,       Kmm_a), 'V', -1._wp,  & 
     90           &                                  uu(:,:,:,       Kbb_a), 'U', -1._wp,  & 
     91           &                                  vv(:,:,:,       Kbb_a), 'V', -1._wp,  & 
     92           &                                  ts(:,:,:,jp_tem,Kmm_a), 'T',  1._wp,  &  
     93           &                                  ts(:,:,:,jp_sal,Kmm_a), 'T',  1._wp,  &  
     94           &                                  ts(:,:,:,jp_tem,Kbb_a), 'T',  1._wp,  &  
     95           &                                  ts(:,:,:,jp_sal,Kbb_a), 'T', 1._wp    ) 
     96      CALL lbc_lnk( 'finalize_lbc_for_agrif', ssh(:,:,  Kmm_a), 'T', 1._wp, & 
     97           &                                  ssh(:,:,  Kbb_a), 'T', 1._wp, & 
     98           &                                  uu_b(:,:, Kmm_a), 'U',-1._wp, & 
     99           &                                  uu_b(:,:, Kbb_a), 'U',-1._wp, & 
     100           &                                  vv_b(:,:, Kmm_a), 'V',-1._wp, & 
     101           &                                  vv_b(:,:, Kbb_a), 'V',-1._wp, & 
     102           &                                  ub2_b(:,:),   'U',-1._wp,     & 
     103           &                                  ub2_i_b(:,:), 'U',-1._wp,     & 
     104           &                                  vb2_b(:,:),   'V',-1._wp,     & 
     105           &                                  vb2_i_b(:,:), 'V',-1._wp      )  
     106 
     107#if defined key_qco 
     108      CALL dom_qco_zgr( Kbb_a, Kmm_a )  
     109#endif 
     110#if defined key_si3 
     111      CALL lbc_lnk( 'finalize_lbc_for_agrif',  a_i, 'T',1._wp,  v_i,'T',1._wp,                 & 
     112           &                                   v_s, 'T',1._wp, sv_i,'T',1._wp, oa_i,'T',1._wp, & 
     113           &                                   a_ip,'T',1._wp, v_ip,'T',1._wp, v_il,'T',1._wp ) 
     114      CALL lbc_lnk( 'finalize_lbc_for_agrif', t_su,'T',1._wp ) 
     115      CALL lbc_lnk( 'finalize_lbc_for_agrif',  e_s,'T',1._wp ) 
     116      CALL lbc_lnk( 'finalize_lbc_for_agrif',  e_i,'T',1._wp ) 
     117      CALL lbc_lnk( 'finalize_lbc_for_agrif', u_ice, 'U', -1._wp, v_ice, 'V', -1._wp ) 
     118#endif 
     119#if defined key_top 
     120      CALL lbc_lnk( 'finalize_lbc_for_agrif', tr(:,:,:,:,Kmm_a), 'T',1._wp ) 
     121      CALL lbc_lnk( 'finalize_lbc_for_agrif', tr(:,:,:,:,Kbb_a), 'T',1._wp ) 
     122#endif 
     123      ! 
     124   END SUBROUTINE finalize_lbc_for_agrif  
    67125 
    68126#else 
Note: See TracChangeset for help on using the changeset viewer.