SURFEX
V8_0
Surfex V8_0 release
Main Page
Data Types List
Files
File List
File Members
All
Classes
Files
Functions
Variables
src
OFFLIN
error_write_surf_lfi.F90
Go to the documentation of this file.
1
!SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
2
!SFX_LIC This is part of the SURFEX software governed by the CeCILL-C licence
3
!SFX_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
4
!SFX_LIC for details. version 1.
5
SUBROUTINE
error_write_surf_lfi
(HREC,KRESP)
6
!
7
USE
yomhook
,ONLY
: lhook, dr_hook
8
USE
parkind1
,ONLY
: jprb
9
!
10
!
11
USE
modd_io_surf_lfi
, ONLY
: nluout
12
!
13
CHARACTER(LEN=*)
,
INTENT(IN)
:: hrec
14
INTEGER
,
INTENT(IN)
:: kresp
15
REAL(KIND=JPRB)
:: zhook_handle
16
17
IF
(lhook) CALL dr_hook(
'MODI_ERROR_WRITE_SURF_LFI:ERROR_WRITE_SURF_LFI'
,0,zhook_handle)
18
IF
(kresp==0 .AND. lhook) CALL dr_hook(
'MODI_ERROR_WRITE_SURF_LFI:ERROR_WRITE_SURF_LFI'
,1,zhook_handle)
19
IF
(kresp==0)
RETURN
20
!
21
WRITE
(nluout,*)
' '
22
WRITE
(nluout,*)
'WARNING'
23
WRITE
(nluout,*)
'-------'
24
WRITE
(nluout,*)
' '
25
WRITE
(nluout,*)
'error when writing article'
, hrec
26
WRITE
(nluout,*)
'KRESP = '
, kresp
27
WRITE
(nluout,*)
' '
28
IF
(lhook) CALL dr_hook(
'MODI_ERROR_WRITE_SURF_LFI:ERROR_WRITE_SURF_LFI'
,1,zhook_handle)
29
30
END SUBROUTINE
error_write_surf_lfi
modd_io_surf_lfi
Definition:
modd_io_surf_lfi.F90:6
error_write_surf_lfi
subroutine error_write_surf_lfi(HREC, KRESP)
Definition:
error_write_surf_lfi.F90:5
Generated on Fri May 13 2016 09:31:00 for SURFEX by
1.8.5