- Timestamp:
- 2021-11-28T18:59:49+01:00 (3 years ago)
- Location:
- NEMO/branches/2021/ticket2632_r14588_theta_sbcblk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2021/ticket2632_r14588_theta_sbcblk
- Property svn:externals
-
old new 9 9 10 10 # SETTE 11 ^/utils/CI/sette@14244 sette 11 ^/utils/CI/sette@HEAD sette 12
-
- Property svn:externals
-
NEMO/branches/2021/ticket2632_r14588_theta_sbcblk/src/NST/agrif_all_update.F90
r12377 r15548 61 61 CALL agrif_update_ice() ! Update sea ice 62 62 #endif 63 IF (lwp.AND.lk_agrif_debug) Write(*,*) ' <-- END AGRIF UPDATE from grid Number',Agrif_Fixed()64 63 ! 65 64 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 67 125 68 126 #else
Note: See TracChangeset
for help on using the changeset viewer.