Changeset 15077 for NEMO/trunk/src/OCE

Timestamp:

2021-07-03T12:16:35+02:00 (3 years ago)

Author:

jchanut

Message:

Circumvent AGRIF conv issue with character arrays (must be defined with len=lca). Seems to be detected only with gcc and Debug options.

File:

• NEMO/trunk/src/OCE/OBS/diaobs.F90 (modified) (2 diffs)

NEMO/trunk/src/OCE/OBS/diaobs.F90

@@ -97 +97 @@
    TYPE(obs_prof), PUBLIC, POINTER, DIMENSION(:) ::   profdataqc   !: Profile data after quality control
 
-   CHARACTER(len=8), PUBLIC, DIMENSION(:), ALLOCATABLE ::   cobstypesprof, cobstypessurf   !: Profile & surface obs types
+   CHARACTER(len=lca), PUBLIC, DIMENSION(:), ALLOCATABLE ::   cobstypesprof, cobstypessurf   !: Profile & surface obs types
 
 #  include "domzgr_substitute.h90"
@@ -1026 +1026 @@
       INTEGER, DIMENSION(ntypes), INTENT(OUT) :: &
          &                   ifiles      ! Out number of files for each type
-      CHARACTER(len=8), DIMENSION(ntypes), INTENT(IN) :: &
+      CHARACTER(len=lca), DIMENSION(ntypes), INTENT(IN) :: &
          &                   cobstypes   ! List of obs types
       CHARACTER(len=128), DIMENSION(ntypes, jpmaxnfiles), INTENT(IN) :: &