Skip to content
Snippets Groups Projects
Commit 6a29c627 authored by Gaelle Tanguy's avatar Gaelle Tanguy Committed by WAUTELET Philippe
Browse files

G.Delautier 20/11/2014: BUG if ZFRC and ZFRC_ADV or ZFRC_REL are used together

parent 7a948b0a
No related branches found
No related tags found
No related merge requests found
...@@ -307,7 +307,8 @@ ...@@ -307,7 +307,8 @@
!! USE MODDB_ADVFRC_n for grid-nesting 02*2012 (M. Tomasini) !! USE MODDB_ADVFRC_n for grid-nesting 02*2012 (M. Tomasini)
!! LBOUSS in MODD_REF 07/2013 (C.Lac) !! LBOUSS in MODD_REF 07/2013 (C.Lac)
!! Correction for ZS in PGD file 04/2014 (G. TANGUY) !! Correction for ZS in PGD file 04/2014 (G. TANGUY)
!! Bug : remove NC WRITE_HGRID 05/2014 (S. Bielli via J.Escobar ) !! Bug : remove NC WRITE_HGRID 05/2014 (S. Bielli via J.Escobar )
!! BUG if ZFRC and ZFRC_ADV or ZFRC_REL are used together 11/2014 (G. Delautier)
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
! !
!* 0. DECLARATIONS !* 0. DECLARATIONS
...@@ -1448,7 +1449,7 @@ END IF ...@@ -1448,7 +1449,7 @@ END IF
! !
IF (LFORCING) THEN IF (LFORCING) THEN
WRITE(NLUOUT,FMT=*) 'FORCING IS ENABLED, ATTEMPT TO SET FORCING FIELDS' WRITE(NLUOUT,FMT=*) 'FORCING IS ENABLED, ATTEMPT TO SET FORCING FIELDS'
CALL POSKEY(NLUPRE,NLUOUT,'ZFRC','PFRC') CALL POSKEY(NLUPRE,NLUOUT,'ZFRC ','PFRC')
CALL SET_FRC(CEXPRE) CALL SET_FRC(CEXPRE)
END IF END IF
! !
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment