From 7e3afbe531fc18cfa0d7ae5c5f24ce1e23892687 Mon Sep 17 00:00:00 2001
From: Gaelle Tanguy <gaelle.tanguy@meteo.fr>
Date: Mon, 14 Apr 2014 12:28:12 +0000
Subject: [PATCH] Gaelle 14/4/2014 : add LCOUPLING
---
src/MNH/prep_real_case.f90 | 27 +++++++++++++++------------
1 file changed, 15 insertions(+), 12 deletions(-)
diff --git a/src/MNH/prep_real_case.f90 b/src/MNH/prep_real_case.f90
index 67309c811..e137453d7 100644
--- a/src/MNH/prep_real_case.f90
+++ b/src/MNH/prep_real_case.f90
@@ -374,6 +374,7 @@
!! Mar 2012 Add NAM_NCOUT for netcdf output
!! July 2013 (Bosseur & Filippi) Adds Forefire
!! Mars 2014 (J.Escobar) Missing 'full' UPDATE_METRICS for arp2lfi // run
+!! April 2014 (G.TANGUY) Add LCOUPLING
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
@@ -1087,20 +1088,22 @@ IF (YATMFILETYPE=='MESONH'.AND. YATMFILE/=YPGDFILE) CALL FMCLOS_ll(YATMFILE,'KEE
!* 18. INTERPOLATION OF SURFACE VARIABLES
! ----------------------------------
!
-ZTIME1 = ZTIME2
-!
-IF (CSURF=="EXTE") THEN
- IF (YATMFILETYPE/='MESONH') THEN
- CALL ALLOC_SURFEX(1)
- CALL READ_ALL_NAMELISTS('MESONH','PRE',.FALSE.)
+IF (.NOT. LCOUPLING ) THEN
+ ZTIME1 = ZTIME2
+!
+ IF (CSURF=="EXTE") THEN
+ IF (YATMFILETYPE/='MESONH') THEN
+ CALL ALLOC_SURFEX(1)
+ CALL READ_ALL_NAMELISTS('MESONH','PRE',.FALSE.)
+ ENDIF
+ CALL GOTO_SURFEX(1,.TRUE.)
+ CALL PREP_SURF_MNH(YSURFFILE,YSURFFILETYPE)
+ CALL DEALLOC_SURFEX
ENDIF
- CALL GOTO_SURFEX(1,.TRUE.)
- CALL PREP_SURF_MNH(YSURFFILE,YSURFFILETYPE)
- CALL DEALLOC_SURFEX
-ENDIF
!
-CALL SECOND_MNH(ZTIME2)
-ZSURF = ZSURF + ZTIME2 - ZTIME1
+ CALL SECOND_MNH(ZTIME2)
+ ZSURF = ZSURF + ZTIME2 - ZTIME1
+ENDIF
!
!-------------------------------------------------------------------------------
!
--
GitLab