Ignore:
Timestamp:
2017-10-04T18:13:47+02:00 (3 years ago)
Author:
acc
Message:

Branch 2017/dev_r8126_ROBUST08_no_ghost. Add in fixes for mono-processor operation as supplied by gm. Fully Sette-tested at this stage.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2017/dev_r8126_ROBUST08_no_ghost/NEMOGCM/NEMO/OPA_SRC/LBC/lbc_nfd_generic.h90

    r8186 r8591  
    4444#endif 
    4545 
     46#if defined MULTI 
    4647   SUBROUTINE ROUTINE_NFD( ptab, cd_nat, psgn, kfld ) 
     48      INTEGER          , INTENT(in   ) ::   kfld        ! number of pt3d arrays 
     49#else 
     50   SUBROUTINE ROUTINE_NFD( ptab, cd_nat, psgn       ) 
     51#endif 
    4752      ARRAY_TYPE(:,:,:,:,:)                             ! array or pointer of arrays on which the boundary condition is applied 
    4853      CHARACTER(len=1) , INTENT(in   ) ::   NAT_IN(:)   ! nature of array grid-points 
    4954      REAL(wp)         , INTENT(in   ) ::   SGN_IN(:)   ! sign used across the north fold boundary 
    50       INTEGER, OPTIONAL, INTENT(in   ) ::   kfld        ! number of pt3d arrays 
    5155      ! 
    5256      INTEGER  ::    ji,  jj,  jk,  jl, jh,  jf   ! dummy loop indices 
Note: See TracChangeset for help on using the changeset viewer.