Changeset 9800


Ignore:
Timestamp:
2018-06-14T12:32:55+02:00 (2 years ago)
Author:
jchanut
Message:

Restore target attribute without agrif, #1972 - Using TOP bdy with Agrif to be checked

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/TOP/trcbc.F90

    r9788 r9800  
    3939   TYPE(FLD), SAVE, PUBLIC, ALLOCATABLE, DIMENSION(:)  :: sf_trccbc    ! structure of data input CBC (file informations, fields read) 
    4040   REAL(wp) , SAVE, PUBLIC, ALLOCATABLE, DIMENSION(:)  :: rf_trofac    ! multiplicative factor for OBCtracer values 
     41#if defined key_agrif 
    4142   TYPE(FLD), SAVE, PUBLIC, ALLOCATABLE, DIMENSION(:)  :: sf_trcobc    ! structure of data input OBC (file informations, fields read) 
     43#else 
     44   TYPE(FLD), SAVE, PUBLIC, ALLOCATABLE, DIMENSION(:), TARGET  :: sf_trcobc 
     45#endif 
    4246   TYPE(MAP_POINTER), ALLOCATABLE, DIMENSION(:) :: nbmap_ptr   ! array of pointers to nbmap 
    4347 
Note: See TracChangeset for help on using the changeset viewer.