SURFEX
V8_0
Surfex V8_0 release
Main Page
Data Types List
Files
File List
File Members
All
Classes
Files
Functions
Variables
src
SURFEX
writesurf_pgd_seaf_parn.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
! #########
6
SUBROUTINE
writesurf_pgd_seaf_par_n
(DGU, U, &
7
dts, &
8
hprogram)
9
! ################################################
10
!
11
!!**** *WRITESURF_PGD_SEAF_PAR_n* - writes SEAFLUX sst
12
!!
13
!!
14
!! PURPOSE
15
!! -------
16
!!
17
!!** METHOD
18
!! ------
19
!!
20
!! EXTERNAL
21
!! --------
22
!!
23
!!
24
!! IMPLICIT ARGUMENTS
25
!! ------------------
26
!!
27
!! REFERENCE
28
!! ---------
29
!!
30
!!
31
!! AUTHOR
32
!! ------
33
!! P. Le Moigne *Meteo France*
34
!!
35
!! MODIFICATIONS
36
!! -------------
37
!! Original 09/2007
38
!-------------------------------------------------------------------------------
39
!
40
!* 0. DECLARATIONS
41
! ------------
42
!
43
!
44
!
45
!
46
USE
modd_diag_surf_atm_n
, ONLY
:
diag_surf_atm_t
47
USE
modd_surf_atm_n
, ONLY
:
surf_atm_t
48
!
49
USE
modd_data_seaflux_n
, ONLY
:
data_seaflux_t
50
!
51
USE
modd_type_date_surf
52
!
53
USE
modi_write_surf
54
!
55
!
56
USE
yomhook
,ONLY
: lhook, dr_hook
57
USE
parkind1
,ONLY
: jprb
58
!
59
IMPLICIT NONE
60
!
61
!* 0.1 Declarations of arguments
62
! -------------------------
63
!
64
!
65
!
66
TYPE(
diag_surf_atm_t
)
,
INTENT(INOUT)
:: dgu
67
TYPE(
surf_atm_t
)
,
INTENT(INOUT)
:: u
68
!
69
TYPE(
data_seaflux_t
)
,
INTENT(INOUT)
:: dts
70
!
71
CHARACTER(LEN=6)
,
INTENT(IN)
:: hprogram
! program calling
72
!
73
!* 0.2 Declarations of local variables
74
! -------------------------------
75
!
76
INTEGER
:: iresp
! IRESP : return-code if a problem appears
77
CHARACTER(LEN=12)
:: yrecfm
! Name of the article to be read
78
CHARACTER(LEN=100)
:: ycomment
! Comment string
79
INTEGER
:: jtime
! loop index
80
REAL(KIND=JPRB)
:: zhook_handle
81
!
82
!
83
!-------------------------------------------------------------------------------
84
!
85
IF
(lhook) CALL dr_hook(
'WRITESURF_PGD_SEAF_PAR_N'
,0,zhook_handle)
86
dts%NTIME =
SIZE
(dts%XDATA_SST,2)
87
yrecfm=
'ND_SEA_TIME'
88
ycomment=
'(-)'
89
CALL
write_surf
(dgu, u, &
90
hprogram,yrecfm,dts%NTIME,iresp,hcomment=ycomment)
91
!
92
DO
jtime=1,dts%NTIME
93
WRITE
(yrecfm,fmt=
'(A7,I3.3)'
)
'D_SST_T'
,jtime
94
ycomment=
'X_Y_DATA_SST'
95
CALL
write_surf
(dgu, u, &
96
hprogram,yrecfm,dts%XDATA_SST(:,jtime),iresp,hcomment=ycomment)
97
END DO
98
!
99
yrecfm=
'TD_SST'
100
ycomment=
'(-)'
101
CALL
write_surf
(dgu, u, &
102
hprogram,yrecfm,dts%TDATA_SST,iresp,hcomment=ycomment)
103
IF
(lhook) CALL dr_hook(
'WRITESURF_PGD_SEAF_PAR_N'
,1,zhook_handle)
104
!
105
!-------------------------------------------------------------------------------
106
!
107
END SUBROUTINE
writesurf_pgd_seaf_par_n
modd_surf_atm_n::surf_atm_t
Definition:
modd_surf_atmn.F90:42
modd_data_seaflux_n
Definition:
modd_data_seafluxn.F90:6
modd_diag_surf_atm_n
Definition:
modd_diag_surf_atmn.F90:6
writesurf_pgd_seaf_par_n
subroutine writesurf_pgd_seaf_par_n(DGU, U, DTS, HPROGRAM)
Definition:
writesurf_pgd_seaf_parn.F90:6
modi_write_surf::write_surf
Definition:
write_surf.F90:16
modd_type_date_surf
Definition:
modd_type_date_surf.F90:6
modd_data_seaflux_n::data_seaflux_t
Definition:
modd_data_seafluxn.F90:41
modd_diag_surf_atm_n::diag_surf_atm_t
Definition:
modd_diag_surf_atmn.F90:44
modi_write_surf
Definition:
write_surf.F90:6
modd_surf_atm_n
Definition:
modd_surf_atmn.F90:6
Generated on Fri May 13 2016 09:31:06 for SURFEX by
1.8.5