Changeset 4466


Ignore:
Timestamp:
2014-02-04T13:18:04+01:00 (7 years ago)
Author:
trackstand2
Message:

Tidy commented-out lines that do not use mbkmax in pack/unpack in exchs_generic

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/LBC/exchmod.F90

    r4442 r4466  
    38023802                 DO j=jstart, jend, 1 
    38033803                    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 
    38053806#else 
    38063807                 DO k=1,nzsendp(ipatch,isend,1),1 
     
    39193920                DO j=jstart, jend, 1 
    39203921                   DO i=istart, iend, 1 
    3921                       DO k=1,mbkmax(i,j),1 ! nzrecvp(ipatch,irecv,1),1 
     3922                      DO k=1,mbkmax(i,j),1 
    39223923                      !DO k=1, nzrecvp(ipatch,irecv,1),1 
    39233924#else 
     
    39643965                DO j=jstart, jend, 1 
    39653966                   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 
    39673969#else 
    39683970                DO k=1,nzrecvp(ipatch,irecv,1),1 
Note: See TracChangeset for help on using the changeset viewer.