Ignore:
Timestamp:
2019-11-22T17:15:18+01:00 (2 years ago)
Author:
acc
Message:

Branch 2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles. Merge in trunk changes up to 11943 in preparation for end of year merge

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/src/OCE/BDY/bdydta.F90

    r11642 r11954  
    461461               ELSE                                                            ;   ipl = 1            ! xy or xyt 
    462462               ENDIF 
     463               bf(jp_bdya_i,jbdy)%clrootname = 'NOT USED'   ! reset to default value as this subdomain may not need to read this bdy 
    463464            ENDIF 
    464465         ENDIF 
     
    629630            ENDIF 
    630631 
    631             IF( llneed ) THEN                                              ! dta_bdy(jbdy)%xxx will be needed 
     632            IF( llneed .AND. iszdim > 0 ) THEN                             ! dta_bdy(jbdy)%xxx will be needed 
    632633               !                                                           !   -> must be associated with an allocated target 
    633634               ALLOCATE( bf_alias(1)%fnow( iszdim, 1, ipk ) )              ! allocate the target 
     
    638639                  bf_alias(1)%imap    => idx_bdy(jbdy)%nbmap(1:iszdim,igrd)   ! associate the mapping used for this bdy 
    639640                  bf_alias(1)%igrd    = igrd                                  ! used only for vertical integration of 3D arrays 
     641                  bf_alias(1)%ibdy    = jbdy                                  !  "    "    "     "          "      "  "    "     
    640642                  bf_alias(1)%ltotvel = ln_full_vel                           ! T if u3d is full velocity 
    641643                  bf_alias(1)%lzint   = ln_zinterp                            ! T if it requires a vertical interpolation 
Note: See TracChangeset for help on using the changeset viewer.