Juan 20/04/2016 : Pb IOZ/NETCDF , add optional KRESP error code
authorJuan Escobar <juan.escobar@aero.obs-mip.fr>
Wed, 20 Apr 2016 08:50:49 +0000 (08:50 +0000)
committerPhilippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Thu, 19 May 2016 14:44:49 +0000 (16:44 +0200)
src/SURFEX/read_surf_field2d.F90

index 5c75644..7c121aa 100644 (file)
@@ -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