Changeset 9800 for NEMO/trunk/src/TOP/trcbc.F90

Timestamp:

2018-06-14T12:32:55+02:00 (6 years ago)

Author:

jchanut

Message:

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

File:

• NEMO/trunk/src/TOP/trcbc.F90 (modified) (1 diff)

NEMO/trunk/src/TOP/trcbc.F90

@@ -39 +39 @@
    TYPE(FLD), SAVE, PUBLIC, ALLOCATABLE, DIMENSION(:)  :: sf_trccbc    ! structure of data input CBC (file informations, fields read)
    REAL(wp) , SAVE, PUBLIC, ALLOCATABLE, DIMENSION(:)  :: rf_trofac    ! multiplicative factor for OBCtracer values
+#if defined key_agrif
    TYPE(FLD), SAVE, PUBLIC, ALLOCATABLE, DIMENSION(:)  :: sf_trcobc    ! structure of data input OBC (file informations, fields read)
+#else
+   TYPE(FLD), SAVE, PUBLIC, ALLOCATABLE, DIMENSION(:), TARGET  :: sf_trcobc
+#endif
    TYPE(MAP_POINTER), ALLOCATABLE, DIMENSION(:) :: nbmap_ptr   ! array of pointers to nbmap