From df5a6a27e848847d7a9d5c16e7d6c529b5603596 Mon Sep 17 00:00:00 2001
From: Clement Rousset <clement.rousset@locean.ipsl.fr>
Date: Tue, 20 Dec 2022 20:41:49 +0100
Subject: [PATCH] debug OBS so that it works in debug mode
---
src/OCE/OBS/diaobs.F90 | 4 ++--
src/OCE/OBS/obs_surf_def.F90 | 2 +-
2 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/src/OCE/OBS/diaobs.F90 b/src/OCE/OBS/diaobs.F90
index e86e007c..7d6b8457 100644
--- a/src/OCE/OBS/diaobs.F90
+++ b/src/OCE/OBS/diaobs.F90
@@ -404,7 +404,7 @@ CONTAINS
ltype_night = .FALSE.
ENDIF
- CALL obs_setinterpopts( nsurftypes, jtype, TRIM(cobstypessurf(jtype)), &
+ CALL obs_setinterpopts( nsurftypes, jtype, cobstypessurf(jtype), &
& nn_2dint_default, n2dint_type, &
& ztype_avglamscl, ztype_avgphiscl, &
& ltype_fp_indegs, ltype_night, &
@@ -1074,7 +1074,7 @@ CONTAINS
& ravgphiscl_type !N/S diameter of obs footprint for this type
LOGICAL, INTENT(IN) :: lfp_indegs_type !T=> footprint in degrees, F=> in metres
LOGICAL, INTENT(IN) :: lavnight_type !T=> obs represent night time average
- CHARACTER(len=8), INTENT(IN) :: ctypein
+ CHARACTER(len=lca), INTENT(IN) :: ctypein
INTEGER, DIMENSION(ntypes), INTENT(INOUT) :: &
& n2dint
diff --git a/src/OCE/OBS/obs_surf_def.F90 b/src/OCE/OBS/obs_surf_def.F90
index b1b894d0..54cb6a73 100644
--- a/src/OCE/OBS/obs_surf_def.F90
+++ b/src/OCE/OBS/obs_surf_def.F90
@@ -437,7 +437,7 @@ CONTAINS
! Set gridded stuff
- newsurf%mt(insurf) = surf%mt(ji)
+!clem bug? newsurf%mt(insurf) = surf%mt(ji)
! Deallocate temporary data
--
GitLab