Changeset 11192 for NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/LBC/lbc_lnk_multi_generic.h90
- Timestamp:
- 2019-06-27T12:40:32+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/LBC/lbc_lnk_multi_generic.h90
r11067 r11192 20 20 & , pt5, cdna5, psgn5, pt6 , cdna6 , psgn6 , pt7 , cdna7 , psgn7 , pt8, cdna8, psgn8 & 21 21 & , pt9, cdna9, psgn9, pt10, cdna10, psgn10, pt11, cdna11, psgn11 & 22 & , cd_mpp, pval )22 & , kfillmode, pfillval ) 23 23 LOGICAL, DIMENSION(4) , INTENT(in ) :: lsend, lrecv ! indicate how communications are to be carried out 24 24 #else … … 27 27 & , pt5, cdna5, psgn5, pt6 , cdna6 , psgn6 , pt7 , cdna7 , psgn7 , pt8, cdna8, psgn8 & 28 28 & , pt9, cdna9, psgn9, pt10, cdna10, psgn10, pt11, cdna11, psgn11 & 29 & , cd_mpp, pval )29 & , kfillmode, pfillval ) 30 30 #endif 31 31 !!--------------------------------------------------------------------- 32 CHARACTER(len=*) , INTENT(in ) :: 33 ARRAY_TYPE(:,:,:,:) , TARGET, INTENT(inout) :: 34 ARRAY_TYPE(:,:,:,:), OPTIONAL, TARGET, INTENT(inout) :: 35 CHARACTER(len=1) , INTENT(in ) :: 36 CHARACTER(len=1) , OPTIONAL , INTENT(in ) :: 37 REAL(wp) , INTENT(in ) :: 38 REAL(wp) , OPTIONAL , INTENT(in ) :: 39 CHARACTER(len=3) , OPTIONAL , INTENT(in ) :: cd_mpp ! fill the overlap area only40 REAL(wp) , OPTIONAL , INTENT(in ) :: pval ! background value (used at closed boundaries)32 CHARACTER(len=*) , INTENT(in ) :: cdname ! name of the calling subroutine 33 ARRAY_TYPE(:,:,:,:) , TARGET, INTENT(inout) :: pt1 ! arrays on which the lbc is applied 34 ARRAY_TYPE(:,:,:,:), OPTIONAL, TARGET, INTENT(inout) :: pt2 , pt3 , pt4 , pt5 , pt6 , pt7 , pt8 , pt9 , pt10 , pt11 35 CHARACTER(len=1) , INTENT(in ) :: cdna1 ! nature of pt2D. array grid-points 36 CHARACTER(len=1) , OPTIONAL , INTENT(in ) :: cdna2, cdna3, cdna4, cdna5, cdna6, cdna7, cdna8, cdna9, cdna10, cdna11 37 REAL(wp) , INTENT(in ) :: psgn1 ! sign used across the north fold 38 REAL(wp) , OPTIONAL , INTENT(in ) :: psgn2, psgn3, psgn4, psgn5, psgn6, psgn7, psgn8, psgn9, psgn10, psgn11 39 INTEGER , OPTIONAL , INTENT(in ) :: kfillmode ! filling method for halo over land (default = constant) 40 REAL(wp) , OPTIONAL , INTENT(in ) :: pfillval ! background value (used at closed boundaries) 41 41 !! 42 42 INTEGER :: kfld ! number of elements that will be attributed … … 64 64 ! 65 65 #if defined IS_BDY 66 CALL lbc_bdy_lnk_ptr( cdname, lsend, lrecv, ptab_ptr, cdna_ptr, psgn_ptr, kfld )66 CALL lbc_bdy_lnk_ptr( cdname, lsend, lrecv, ptab_ptr, cdna_ptr, psgn_ptr, kfld ) 67 67 #else 68 CALL lbc_lnk_ptr ( cdname, ptab_ptr, cdna_ptr, psgn_ptr, kfld, cd_mpp, pval )68 CALL lbc_lnk_ptr ( cdname, ptab_ptr, cdna_ptr, psgn_ptr, kfld, kfillmode, pfillval ) 69 69 #endif 70 70 !
Note: See TracChangeset
for help on using the changeset viewer.