From 0ab5de5827fb6a4f7017a299d1ab10f6c48fc99a Mon Sep 17 00:00:00 2001
From: Juan Escobar <juan.escobar@aero.obs-mip.fr>
Date: Wed, 20 Apr 2016 08:50:49 +0000
Subject: [PATCH] Juan 20/04/2016 : Pb IOZ/NETCDF , add optional KRESP error
code
---
src/SURFEX/read_surf_field2d.F90 | 8 ++++++--
1 file changed, 6 insertions(+), 2 deletions(-)
diff --git a/src/SURFEX/read_surf_field2d.F90 b/src/SURFEX/read_surf_field2d.F90
index 5c75644d9..7c121aa59 100644
--- a/src/SURFEX/read_surf_field2d.F90
+++ b/src/SURFEX/read_surf_field2d.F90
@@ -3,7 +3,7 @@
!SURFEX_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!SURFEX_LIC for details. version 1.
! #########
- SUBROUTINE READ_SURF_FIELD2D( HPROGRAM,PFIELD2D,HFIELDNAME,HCOMMENT,HDIR)
+ SUBROUTINE READ_SURF_FIELD2D( HPROGRAM,PFIELD2D,HFIELDNAME,HCOMMENT,HDIR,KRESP)
! #####################################
!
!!**** *READ_SURF_FIELD2D* - reads surfex field in input file using READ_SURF,
@@ -42,6 +42,7 @@
!! MODIFICATIONS
!! -------------
!! Original 08/01/2016
+!! J.Escobar : 20/04/2016 : Pb IOZ/NETCDF , add optional KRESP error code
!!
!-------------------------------------------------------------------------------
!
@@ -72,6 +73,7 @@ CHARACTER(LEN=1),OPTIONAL, INTENT(IN) :: HDIR ! type of field :
! ! 'H' : field with
! ! horizontal spatial dim.
! ! '-' : no horizontal dim.
+INTEGER,OPTIONAL, INTENT(OUT) :: KRESP
!
!* 0.2 Declarations of local variables
! -------------------------------
@@ -90,6 +92,7 @@ REAL(KIND=JPRB) :: ZHOOK_HANDLE
!
!------------------------------------------------------------------------------
!
+IF (PRESENT(KRESP)) KRESP = -1
!
IF (LHOOK) CALL DR_HOOK('READ_SURF_FIELD2D',0,ZHOOK_HANDLE)
!
@@ -127,6 +130,7 @@ IF (PRESENT(HDIR)) HCOMMENT = YCOMMENT
!
IF (LHOOK) CALL DR_HOOK('READ_SURF_FIELD2D',1,ZHOOK_HANDLE)
!
+IF (PRESENT(KRESP)) KRESP = IRESP
!-------------------------------------------------------------------------------
!
- END SUBROUTINE READ_SURF_FIELD2D
\ No newline at end of file
+ END SUBROUTINE READ_SURF_FIELD2D
--
GitLab