SURFEX
V8_0
Surfex V8_0 release
Main Page
Data Types List
Files
File List
File Members
All
Classes
Files
Functions
Variables
src
TOPD
isba_to_topd.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
! #######################
7
SUBROUTINE
isba_to_topd
(PVARI,PVART)
8
! #######################
9
!
10
!!**** *ISBA_TO_TOPD*
11
!!
12
!! PURPOSE
13
!! -------
14
!
15
!
16
!
17
!
18
!!** METHOD
19
!! ------
20
!
21
!! EXTERNAL
22
!! --------
23
!!
24
!! none
25
!!
26
!! IMPLICIT ARGUMENTS
27
!! ------------------
28
!!
29
!!
30
!! REFERENCE
31
!! ---------
32
!!
33
!! AUTHOR
34
!! ------
35
!!
36
!! K. Chancibault * LTHE / Meteo-France *
37
!!
38
!! MODIFICATIONS
39
!! -------------
40
!!
41
!! Original 12/2003
42
!-------------------------------------------------------------------------------
43
!
44
!* 0. DECLARATIONS
45
! ------------
46
!
47
USE
modd_topodyn
, ONLY
: nncat, nnmc
48
USE
modd_coupling_topd
, ONLY
: nmaskt
49
USE
modd_surf_par
, ONLY
: xundef, nundef
50
!
51
USE
yomhook
,ONLY
: lhook, dr_hook
52
USE
parkind1
,ONLY
: jprb
53
!
54
IMPLICIT NONE
55
!
56
!* 0.1 declarations of arguments
57
!
58
REAL
,
DIMENSION(:)
,
INTENT(IN)
:: pvari
! variable from ISBA grid
59
REAL
,
DIMENSION(:,:)
,
INTENT(OUT)
:: pvart
! variable for TOPODYN grid
60
!
61
!* 0.2 declarations of local variables
62
!
63
INTEGER
:: jj, ji
! loop control
64
REAL(KIND=JPRB)
:: zhook_handle
65
!-------------------------------------------------------------------------------
66
IF
(lhook) CALL dr_hook(
'ISBA_TO_TOPD'
,0,zhook_handle)
67
!
68
!* 1. ISBA => TOPODYN-LAT
69
! -------------------
70
!
71
pvart(:,:)=xundef
72
DO
jj=1,nncat
73
DO
ji=1,nnmc(jj)
74
IF
(nmaskt(jj,ji)/=nundef) pvart(jj,ji) = pvari(nmaskt(jj,ji))
75
ENDDO
76
ENDDO
77
!
78
IF
(lhook) CALL dr_hook(
'ISBA_TO_TOPD'
,1,zhook_handle)
79
!
80
END SUBROUTINE
isba_to_topd
modd_coupling_topd
Definition:
modd_coupling_topd.F90:6
modd_surf_par
Definition:
modd_surf_par.F90:6
isba_to_topd
subroutine isba_to_topd(PVARI, PVART)
Definition:
isba_to_topd.F90:7
modd_topodyn
Definition:
modd_topodyn.F90:7
Generated on Fri May 13 2016 09:31:06 for SURFEX by
1.8.5