Changeset 4466 for branches/2011
- Timestamp:
- 2014-02-04T13:18:04+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
r4442 r4466 3802 3802 DO j=jstart, jend, 1 3803 3803 DO i=istart, iend, 1 3804 DO k=1,mbkmax(i,j),1 ! nzsendp(ipatch,isend,1),1 3804 DO k=1,mbkmax(i,j),1 3805 !DO k=1, nzsendp(ipatch,isend,1),1 3805 3806 #else 3806 3807 DO k=1,nzsendp(ipatch,isend,1),1 … … 3919 3920 DO j=jstart, jend, 1 3920 3921 DO i=istart, iend, 1 3921 DO k=1,mbkmax(i,j),1 ! nzrecvp(ipatch,irecv,1),13922 DO k=1,mbkmax(i,j),1 3922 3923 !DO k=1, nzrecvp(ipatch,irecv,1),1 3923 3924 #else … … 3964 3965 DO j=jstart, jend, 1 3965 3966 DO i=istart, iend, 1 3966 DO k=1,mbkmax(i,j),1 ! nzrecvp(ipatch,irecv,1),1 3967 DO k=1,mbkmax(i,j),1 3968 !DO k=1,nzrecvp(ipatch,irecv,1),1 3967 3969 #else 3968 3970 DO k=1,nzrecvp(ipatch,irecv,1),1
Note: See TracChangeset
for help on using the changeset viewer.