Changeset 15077

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.

Location:

NEMO/trunk/src

Files:

• OCE/OBS/diaobs.F90 (modified) (2 diffs)
• TOP/trc.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) :: &

NEMO/trunk/src/TOP/trc.F90

@@ -80 +80 @@
    REAL(wp)        , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) ::   trc_ice_ratio    !: ice-ocean tracer ratio
    REAL(wp)        , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) ::   trc_ice_prescr   !: prescribed ice trc cc
-   CHARACTER(len=2), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) ::   cn_trc_o         !: choice of ocean tracer cc
+
+   CHARACTER(len=lca), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) ::   cn_trc_o         !: choice of ocean tracer cc
 
    !! Information for the optics module
@@ -104 +105 @@
    END TYPE PTRACER
    !
-   CHARACTER(len=20), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) ::   ctrcnm   !: tracer name 
-   CHARACTER(len=80), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) ::   ctrcln   !: trccer field long name
-   CHARACTER(len=20), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) ::   ctrcun   !: tracer unit
+   CHARACTER(len=lca), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) ::   ctrcnm   !: tracer name 
+   CHARACTER(len=lca), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) ::   ctrcln   !: trccer field long name
+   CHARACTER(len=lca), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) ::   ctrcun   !: tracer unit
    !
    TYPE, PUBLIC ::   DIAG         !: Passive trcacer ddditional diagnostic type