New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 11325 for NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/BDY/bdydta.F90 – NEMO

Ignore:
Timestamp:
2019-07-23T10:19:17+02:00 (5 years ago)
Author:
smasson
Message:

dev_r10984_HPC-13 : bugfixes for sette with debug options

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/BDY/bdydta.F90

    r11317 r11325  
    415415               bf_alias => bf(jp_bdyssh,jbdy:jbdy)                         ! alias for ssh structure of bdy number jbdy 
    416416               bn_alias => bn_ssh                                          ! alias for ssh structure of nambdy_dta  
     417               iszdim = idx_bdy(jbdy)%nblenrim(igrd)                       ! length of this bdy on this MPI processus : only rim 
    417418            ENDIF 
    418419            ! ===================== 
    … …  
    427428               bf_alias => bf(jp_bdyu2d,jbdy:jbdy)                         ! alias for u2d structure of bdy number jbdy 
    428429               bn_alias => bn_u2d                                          ! alias for u2d structure of nambdy_dta  
     430               iszdim = idx_bdy(jbdy)%nblenrim(igrd)                       ! length of this bdy on this MPI processus : only rim 
    429431            ENDIF 
    430432            IF( jfld == jp_bdyv2d ) THEN 
    … …  
    436438               bf_alias => bf(jp_bdyv2d,jbdy:jbdy)                         ! alias for v2d structure of bdy number jbdy 
    437439               bn_alias => bn_v2d                                          ! alias for v2d structure of nambdy_dta  
     440               iszdim = idx_bdy(jbdy)%nblenrim(igrd)                       ! length of this bdy on this MPI processus : only rim 
    438441            ENDIF 
    439442            ! ===================== 
    … …  
    449452               bf_alias => bf(jp_bdyu3d,jbdy:jbdy)                         ! alias for u3d structure of bdy number jbdy 
    450453               bn_alias => bn_u3d                                          ! alias for u3d structure of nambdy_dta  
    451             ENDIF 
     454               iszdim = idx_bdy(jbdy)%nblen(igrd)                          ! length of this bdy on this MPI processus 
     455           ENDIF 
    452456            IF( jfld == jp_bdyv3d ) THEN 
    453457               cl3 = 'v3d' 
    … …  
    459463               bf_alias => bf(jp_bdyv3d,jbdy:jbdy)                         ! alias for v3d structure of bdy number jbdy 
    460464               bn_alias => bn_v3d                                          ! alias for v3d structure of nambdy_dta  
    461             ENDIF 
     465               iszdim = idx_bdy(jbdy)%nblen(igrd)                          ! length of this bdy on this MPI processus 
     466           ENDIF 
    462467 
    463468            ! ===================== 
    … …  
    472477               bf_alias => bf(jp_bdytem,jbdy:jbdy)                         ! alias for ssh structure of bdy number jbdy 
    473478               bn_alias => bn_tem                                          ! alias for ssh structure of nambdy_dta  
     479               iszdim = idx_bdy(jbdy)%nblen(igrd)                          ! length of this bdy on this MPI processus 
    474480            ENDIF 
    475481            IF( jfld == jp_bdysal ) THEN 
    … …  
    481487               bf_alias => bf(jp_bdysal,jbdy:jbdy)                         ! alias for ssh structure of bdy number jbdy 
    482488               bn_alias => bn_sal                                          ! alias for ssh structure of nambdy_dta  
     489               iszdim = idx_bdy(jbdy)%nblen(igrd)                          ! length of this bdy on this MPI processus 
    483490            ENDIF 
    484491 
    … …  
    494501               bf_alias => bf(jp_bdya_i,jbdy:jbdy)                         ! alias for ssh structure of bdy number jbdy 
    495502               bn_alias => bn_a_i                                          ! alias for ssh structure of nambdy_dta  
    496             ENDIF 
     503               iszdim = idx_bdy(jbdy)%nblen(igrd)                          ! length of this bdy on this MPI processus 
     504           ENDIF 
    497505            IF( jfld == jp_bdyh_i ) THEN 
    498506               cl3 = 'h_i' 
    … …  
    503511               bf_alias => bf(jp_bdyh_i,jbdy:jbdy)                         ! alias for ssh structure of bdy number jbdy 
    504512               bn_alias => bn_h_i                                          ! alias for ssh structure of nambdy_dta  
     513               iszdim = idx_bdy(jbdy)%nblen(igrd)                          ! length of this bdy on this MPI processus 
    505514            ENDIF 
    506515            IF( jfld == jp_bdyh_s ) THEN 
    … …  
    512521               bf_alias => bf(jp_bdyh_s,jbdy:jbdy)                         ! alias for ssh structure of bdy number jbdy 
    513522               bn_alias => bn_h_s                                          ! alias for ssh structure of nambdy_dta  
    514             ENDIF 
    515  
     523               iszdim = idx_bdy(jbdy)%nblen(igrd)                          ! length of this bdy on this MPI processus 
     524            ENDIF 
    516525 
    517526            IF( llneed ) THEN                                              ! dta_bdy(jbdy)%xxx will be needed 
    518527               !                                                           !   -> must be associated with an allocated target 
    519                iszdim = idx_bdy(jbdy)%nblen(igrd)                          ! length of this bdy on this MPI processus 
    520528               ALLOCATE( bf_alias(1)%fnow( iszdim, 1, ipk ) )              ! allocate the target 
    521529               ! 
Note: See TracChangeset for help on using the changeset viewer.