Changeset 4476
- Timestamp:
- 2014-02-04T13:18:55+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/LBC/exchmod.F90
r4466 r4476 3764 3764 DO j=jstart, jend, 1 3765 3765 DO i=istart, iend, 1 3766 #if defined key_halo_column_trim 3767 ARPDBG: THIS FUNCTIONALITY IS NOT YET IMPLEMENTED! 3768 Need to supply accurate point count to the 3769 mpi recv and that requires extension of 3770 the mapcomm_mod::clip_msg() routine. 3766 3771 DO k=1,mbkmax(i,j),1 3767 !DO k=1, nzsendp(ipatch,isend,1),1 3772 #else 3773 DO k=1, nzsendp(ipatch,isend,1),1 3774 #endif 3768 3775 #else 3769 3776 DO k=1,nzsendp(ipatch,isend,1),1 … … 3802 3809 DO j=jstart, jend, 1 3803 3810 DO i=istart, iend, 1 3811 #if defined key_halo_column_trim 3804 3812 DO k=1,mbkmax(i,j),1 3805 !DO k=1, nzsendp(ipatch,isend,1),1 3813 #else 3814 DO k=1, nzsendp(ipatch,isend,1),1 3815 #endif 3806 3816 #else 3807 3817 DO k=1,nzsendp(ipatch,isend,1),1 … … 3920 3930 DO j=jstart, jend, 1 3921 3931 DO i=istart, iend, 1 3932 #if defined key_halo_column_trim 3922 3933 DO k=1,mbkmax(i,j),1 3923 !DO k=1, nzrecvp(ipatch,irecv,1),1 3934 #else 3935 DO k=1, nzrecvp(ipatch,irecv,1),1 3936 #endif 3924 3937 #else 3925 3938 DO k=1,nzrecvp(ipatch,irecv,1),1 … … 3932 3945 #if defined key_z_first 3933 3946 ! ARPDBG - wipe anything below the ocean bottom 3934 !b3(i,j,nzrecvp(ipatch,irecv,1)+1:jpk) = 0.0_wp 3947 #if defined key_halo_column_trim 3935 3948 b3(i,j,mbkmax(i,j)+1:jpk) = 0.0_wp 3949 #else 3950 b3(i,j,nzrecvp(ipatch,irecv,1)+1:jpk) = 0.0_wp 3951 #endif 3936 3952 #endif 3937 3953 END DO … … 3965 3981 DO j=jstart, jend, 1 3966 3982 DO i=istart, iend, 1 3983 #if defined key_halo_column_trim 3967 3984 DO k=1,mbkmax(i,j),1 3968 !DO k=1,nzrecvp(ipatch,irecv,1),1 3985 #else 3986 DO k=1,nzrecvp(ipatch,irecv,1),1 3987 #endif 3969 3988 #else 3970 3989 DO k=1,nzrecvp(ipatch,irecv,1),1
Note: See TracChangeset
for help on using the changeset viewer.