From 77c02a5c2f960c38a73996cfea72449ec7b6c5e2 Mon Sep 17 00:00:00 2001
From: Gaelle Tanguy <gaelle.tanguy@meteo.fr>
Date: Fri, 7 Feb 2014 10:17:40 +0000
Subject: [PATCH] Christine 07/02/2014 : bug in reading UV eddy fluxes
---
src/MNH/read_field.f90 | 16 +++++++++-------
1 file changed, 9 insertions(+), 7 deletions(-)
diff --git a/src/MNH/read_field.f90 b/src/MNH/read_field.f90
index 10e716508..687aad828 100644
--- a/src/MNH/read_field.f90
+++ b/src/MNH/read_field.f90
@@ -1171,10 +1171,10 @@ ENDIF
!
IF (LUV_FLX) THEN
IF ( CCONF /= 'START' .OR. CPROGRAM=='SPAWN ' ) THEN
- WRITE(ILUOUT,FMT=*) 'read_field.f90 : UV Eddy fluxes reading in the initial file'
YRECFM='VU_FLX'
- YDIR='XY'
- CALL FMREAD(HINIFILE,YRECFM,HLUOUT,YDIR,PVU_FLUX_M,IGRID,ILENCH,YCOMMENT,IRESP)
+ YDIR='--'
+ CALL FMREAD(HINIFILE,YRECFM,HLUOUT,YDIR,PVU_FLUX_M,IGRID, &
+ ILENCH,YCOMMENT,IRESP)
ELSE IF (CCONF == 'START') THEN
PVU_FLUX_M(:,:,:)=0.
END IF
@@ -1182,12 +1182,14 @@ ENDIF
!
IF (LTH_FLX) THEN
IF ( CCONF /= 'START' .OR. CPROGRAM=='SPAWN ' ) THEN
- WRITE(ILUOUT,FMT=*) 'read_field.f90 : Eddy fluxes reading in the initial file'
YRECFM='VT_FLX'
- YDIR='XY'
- CALL FMREAD(HINIFILE,YRECFM,HLUOUT,YDIR,PVTH_FLUX_M,IGRID,ILENCH,YCOMMENT,IRESP)
+ YDIR='--'
+ CALL FMREAD(HINIFILE,YRECFM,HLUOUT,YDIR,PVTH_FLUX_M,IGRID, &
+ ILENCH,YCOMMENT,IRESP)
YRECFM='WT_FLX'
- YDIR='XY'
+ YDIR='--'
+ CALL FMREAD(HINIFILE,YRECFM,HLUOUT,YDIR,PWTH_FLUX_M,IGRID, &
+ ILENCH,YCOMMENT,IRESP)
ELSE IF (CCONF == 'START') THEN
PWTH_FLUX_M(:,:,:)=0.
PVTH_FLUX_M(:,:,:)=0.
--
GitLab