From 1b5f58be47e6458ee71d36d3226a8b205f096f41 Mon Sep 17 00:00:00 2001
From: Juan Escobar <juan.escobar@aero.obs-mip.fr>
Date: Wed, 20 Apr 2016 08:50:29 +0000
Subject: [PATCH] Juan 20/04/2016 : Pb IOZ/NETCDF , replace READ/WRITE_SURF by
READ/WRITE_SURF_FIELD2D
---
src/SURFEX/readwrite_emis_fieldn.F90 | 14 +++++++++++---
1 file changed, 11 insertions(+), 3 deletions(-)
diff --git a/src/SURFEX/readwrite_emis_fieldn.F90 b/src/SURFEX/readwrite_emis_fieldn.F90
index 86545ce46..fc61d046c 100644
--- a/src/SURFEX/readwrite_emis_fieldn.F90
+++ b/src/SURFEX/readwrite_emis_fieldn.F90
@@ -6,6 +6,9 @@
SUBROUTINE READWRITE_EMIS_FIELD_n(HPROGRAM)
! #######################################################################
!
+!! MODIFICATIONS
+!! -------------
+!! J.Escobar : 20/04/2016 : Pb IOZ/NETCDF , replace READ/WRITE_SURF by READ/WRITE_SURF_FIELD2D
!-----------------------------------------------------------------------------
!
!* 0. DECLARATIONS
@@ -23,6 +26,8 @@ USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
USE PARKIND1 ,ONLY : JPRB
!
USE MODI_ABOR1_SFX
+USE MODI_READ_SURF_FIELD2D
+USE MODI_WRITE_SURF_FIELD2D
!
IMPLICIT NONE
!
@@ -32,7 +37,8 @@ IMPLICIT NONE
!
INTEGER :: IRESP ! I/O error code
CHARACTER (LEN=16) :: YRECFM ! article name
- CHARACTER (LEN=100) :: YCOMMENT ! comment
+ CHARACTER (LEN=100) :: YCOMMENT ! comment
+ CHARACTER(LEN=100) :: YCOMMENTUNIT ! Comment string : unit of the datas in the field to write
INTEGER :: ILUOUT ! Unit number for prints
INTEGER :: JSPEC ! Loop index for emission species
INTEGER :: IEMISPEC_NBR ! number of emitted chemical species
@@ -111,7 +117,7 @@ DO JSPEC=1,IEMISPEC_NBR
!
CALL INIT_IO_SURF_n(HPROGRAM,'FULL ','SURF ','READ ')
YRECFM='E_'//TRIM(YEMISPEC_NAME)
- CALL READ_SURF(HPROGRAM,YRECFM,ZWORK,IRESP,YCOMMENT)
+ CALL READ_SURF_FIELD2D(HPROGRAM,ZWORK,YRECFM,HCOMMENT=YCOMMENT,KRESP=IRESP)
CALL END_IO_SURF_n(HPROGRAM)
!
IF (IRESP/=0) THEN
@@ -119,7 +125,9 @@ DO JSPEC=1,IEMISPEC_NBR
END IF
!
CALL INIT_IO_SURF_n(HPROGRAM,'FULL ','SURF ','WRITE')
- CALL WRITE_SURF(HPROGRAM,YRECFM,ZWORK,IRESP,YCOMMENT)
+ YCOMMENTUNIT=''
+ CALL WRITE_SURF_FIELD2D(HPROGRAM,ZWORK,YRECFM,YCOMMENT,YCOMMENTUNIT)
+
CALL END_IO_SURF_n(HPROGRAM)
!
!-------------------------------------------------------------------------------
--
GitLab