Changeset 4476


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

Remove col-trimming when halo packing as is broken - recvs need to know about it too and currently they cannot.

File:
1 edited

Legend:

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

    r4466 r4476  
    37643764                DO j=jstart, jend, 1 
    37653765                   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. 
    37663771                      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 
    37683775#else 
    37693776                DO k=1,nzsendp(ipatch,isend,1),1 
     
    38023809                 DO j=jstart, jend, 1 
    38033810                    DO i=istart, iend, 1 
     3811#if defined key_halo_column_trim 
    38043812                       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 
    38063816#else 
    38073817                 DO k=1,nzsendp(ipatch,isend,1),1 
     
    39203930                DO j=jstart, jend, 1 
    39213931                   DO i=istart, iend, 1 
     3932#if defined key_halo_column_trim 
    39223933                      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 
    39243937#else 
    39253938                DO k=1,nzrecvp(ipatch,irecv,1),1 
     
    39323945#if defined key_z_first 
    39333946                      ! 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 
    39353948                      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 
    39363952#endif 
    39373953                   END DO 
     
    39653981                DO j=jstart, jend, 1 
    39663982                   DO i=istart, iend, 1 
     3983#if defined key_halo_column_trim 
    39673984                      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 
    39693988#else 
    39703989                DO k=1,nzrecvp(ipatch,irecv,1),1 
Note: See TracChangeset for help on using the changeset viewer.