Skip to content
Snippets Groups Projects
Commit a8c32a73 authored by WAUTELET Philippe's avatar WAUTELET Philippe
Browse files

Philippe 22/01/2019: SURFEX: correct small print bugs

parent 4c4a46d9
No related branches found
No related tags found
No related merge requests found
!SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
!SFX_LIC Copyright 2004-2019 CNRS, Meteo-France and Universite Paul Sabatier
!SFX_LIC This is part of the SURFEX software governed by the CeCILL-C licence
!SFX_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!SFX_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!SFX_LIC for details. version 1.
! ################################################
SUBROUTINE INTERPOL_FIELD2D (UG, U, &
......@@ -33,6 +33,7 @@
!! Modification
!! A. Alias 07/2013 add MODI_ABOR1_SFX
!! J. Escobar 09/2017 differencied error message :: SFX / NAM_IO_OFFLINE <=> MNH / NAM_PGDFILE
!! P. Wautelet 01/2019 correct small print bugs
!----------------------------------------------------------------------------
!
!* 0. DECLARATION
......@@ -174,10 +175,10 @@ IF (IERR2>0) THEN
WRITE(KLUOUT,*) 'NDIM_FULL=',U%NDIM_FULL,',NHALO=',IHALO,',Pts to interpol=',IERR0 &
,',Pts interpolated=',IERR1,',Pts missing=',IERR2
CALL ABOR1_SFX('Some points lack data and are too far away from other points. &
Please define a higher halo value in &NAM_PGDFILE NHALO=xxx /')
&Please define a higher halo value in &NAM_PGDFILE NHALO=xxx /')
#else
CALL ABOR1_SFX('Some points lack data and are too far away from other points. &
Please define a higher halo value in NAM_IO_OFFLINE.')
&Please define a higher halo value in NAM_IO_OFFLINE.')
#endif
ENDIF
ENDIF
......
!SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
!SFX_LIC Copyright 2009-2019 CNRS, Meteo-France and Universite Paul Sabatier
!SFX_LIC This is part of the SURFEX software governed by the CeCILL-C licence
!SFX_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!SFX_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!SFX_LIC for details. version 1.
!GLT_LIC The GELATO model is a seaice model used in stand-alone or embedded mode.
!GLT_LIC It has been developed by Meteo-France. The holder of GELATO is Meteo-France.
......@@ -70,6 +70,8 @@
! Sea ice damping
! Modified: 2015/07 (D. Salas y Melia)
! Sea ice damping has been externalized from thermo_r routine
! Modified: 2019/01 (P. Wautelet)
! Correct small print bug
!
! -------------------- BEGIN MODULE modi_glt_thermo -------------------------
......@@ -731,7 +733,7 @@ SUBROUTINE glt_thermo &
! ==============================
!
1000 FORMAT( " Processor ", I5," ==> Running on ", I5, &
" points instead of ", I6, "(" I5, " times " , I5, ")" )
" points instead of ", I6, "(" , I5, " times " , I5, ")" )
!
IF (lp1) THEN
WRITE(noutlu,*) ' '
......
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