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.
Ticket Comment Diff – NEMO

Changes between Initial Version and Version 1 of Ticket #2598, comment 21


Ignore:
Timestamp:
2021-02-01T10:46:54+01:00 (3 years ago)
Author:
smasson
Comment:

Legend:

Unmodified
Added
Removed
Modified

  • Ticket #2598, comment 21

    initial v1  
    22 
    33In lbc_blk_call.h90, this fortran 2008 argument is indeed needed in the TARGET declarations:  
    4 {{{ 
     4{{{#!fortran 
    55REAL(PRECISION), DIMENSION(DIMS)          , TARGET, CONTIGUOUS, INTENT(inout) ::   pt1        ! arrays on which the lbc is applied 
    66REAL(PRECISION), DIMENSION(DIMS), OPTIONAL, TARGET, CONTIGUOUS, INTENT(inout) ::   pt2 , pt3 , pt4 , pt5 , pt6 , pt7 , pt8 , pt9, & 
    … …  
    1212}}} 
    1313in order compile the following line  
    14 {{{ 
     14{{{#!fortran 
    1515ptab_ptr(kfld)%pt4d(1:SIZE(ptab, dim=1),1:SIZE(ptab, dim=2),1:ISZ3,1:ISZ4) => ptab 
    1616}}}