Ignore:
Timestamp:
2017-12-13T14:57:33+01:00 (3 years ago)
Author:
acc
Message:

Branch dev_CNRS_2017. Merge in no_ghost changes from dev_r8126_ROBUST08_no_ghost. These changes include lib_mpp refresh and rationalisation of mppini from dev_r8126_ROBUST10_MPPINI

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/OPA_SRC/LBC/lbc_nfd_generic.h90

    r8882 r9012  
    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.