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 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. !SFX_LIC for details. version 1.
! ################################################ ! ################################################
SUBROUTINE INTERPOL_FIELD2D (UG, U, & SUBROUTINE INTERPOL_FIELD2D (UG, U, &
...@@ -33,6 +33,7 @@ ...@@ -33,6 +33,7 @@
!! Modification !! Modification
!! A. Alias 07/2013 add MODI_ABOR1_SFX !! A. Alias 07/2013 add MODI_ABOR1_SFX
!! J. Escobar 09/2017 differencied error message :: SFX / NAM_IO_OFFLINE <=> MNH / NAM_PGDFILE !! J. Escobar 09/2017 differencied error message :: SFX / NAM_IO_OFFLINE <=> MNH / NAM_PGDFILE
!! P. Wautelet 01/2019 correct small print bugs
!---------------------------------------------------------------------------- !----------------------------------------------------------------------------
! !
!* 0. DECLARATION !* 0. DECLARATION
...@@ -174,10 +175,10 @@ IF (IERR2>0) THEN ...@@ -174,10 +175,10 @@ IF (IERR2>0) THEN
WRITE(KLUOUT,*) 'NDIM_FULL=',U%NDIM_FULL,',NHALO=',IHALO,',Pts to interpol=',IERR0 & WRITE(KLUOUT,*) 'NDIM_FULL=',U%NDIM_FULL,',NHALO=',IHALO,',Pts to interpol=',IERR0 &
,',Pts interpolated=',IERR1,',Pts missing=',IERR2 ,',Pts interpolated=',IERR1,',Pts missing=',IERR2
CALL ABOR1_SFX('Some points lack data and are too far away from other points. & 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 #else
CALL ABOR1_SFX('Some points lack data and are too far away from other points. & 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 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 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. !SFX_LIC for details. version 1.
!GLT_LIC The GELATO model is a seaice model used in stand-alone or embedded mode. !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. !GLT_LIC It has been developed by Meteo-France. The holder of GELATO is Meteo-France.
...@@ -70,6 +70,8 @@ ...@@ -70,6 +70,8 @@
! Sea ice damping ! Sea ice damping
! Modified: 2015/07 (D. Salas y Melia) ! Modified: 2015/07 (D. Salas y Melia)
! Sea ice damping has been externalized from thermo_r routine ! Sea ice damping has been externalized from thermo_r routine
! Modified: 2019/01 (P. Wautelet)
! Correct small print bug
! !
! -------------------- BEGIN MODULE modi_glt_thermo ------------------------- ! -------------------- BEGIN MODULE modi_glt_thermo -------------------------
...@@ -731,7 +733,7 @@ SUBROUTINE glt_thermo & ...@@ -731,7 +733,7 @@ SUBROUTINE glt_thermo &
! ============================== ! ==============================
! !
1000 FORMAT( " Processor ", I5," ==> Running on ", I5, & 1000 FORMAT( " Processor ", I5," ==> Running on ", I5, &
" points instead of ", I6, "(" I5, " times " , I5, ")" ) " points instead of ", I6, "(" , I5, " times " , I5, ")" )
! !
IF (lp1) THEN IF (lp1) THEN
WRITE(noutlu,*) ' ' 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