SURFEX
V8_0
Surfex V8_0 release
Main Page
Data Types List
Files
File List
File Members
All
Classes
Files
Functions
Variables
src
GELATO
modi_gltools_adjflx.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
!GLT_LIC The GELATO model is a seaice model used in stand-alone or embedded mode.
6
!GLT_LIC It has been developed by Meteo-France. The holder of GELATO is Meteo-France.
7
!GLT_LIC
8
!GLT_LIC This software is governed by the CeCILL-C license under French law and biding
9
!GLT_LIC by the rules of distribution of free software. See the CeCILL-C_V1-en.txt
10
!GLT_LIC (English) and CeCILL-C_V1-fr.txt (French) for details. The CeCILL is a free
11
!GLT_LIC software license, explicitly compatible with the GNU GPL
12
!GLT_LIC (see http://www.gnu.org/licenses/license-list.en.html#CeCILL)
13
!GLT_LIC
14
!GLT_LIC The CeCILL-C licence agreement grants users the right to modify and re-use the
15
!GLT_LIC software governed by this free software license. The exercising of this right
16
!GLT_LIC is conditional upon the obligation to make available to the community the
17
!GLT_LIC modifications made to the source code of the software so as to contribute to
18
!GLT_LIC its evolution.
19
!GLT_LIC
20
!GLT_LIC In consideration of access to the source code and the rights to copy, modify
21
!GLT_LIC and redistribute granted by the license, users are provided only with a limited
22
!GLT_LIC warranty and the software's author, the holder of the economic rights, and the
23
!GLT_LIC successive licensors only have limited liability. In this respect, the risks
24
!GLT_LIC associated with loading, using, modifying and/or developing or reproducing the
25
!GLT_LIC software by the user are brought to the user's attention, given its Free
26
!GLT_LIC Software status, which may make it complicated to use, with the result that its
27
!GLT_LIC use is reserved for developers and experienced professionals having in-depth
28
!GLT_LIC computer knowledge. Users are therefore encouraged to load and test the
29
!GLT_LIC suitability of the software as regards their requirements in conditions enabling
30
!GLT_LIC the security of their systems and/or data to be ensured and, more generally, to
31
!GLT_LIC use and operate it in the same conditions of security.
32
!GLT_LIC
33
!GLT_LIC The GELATO sofware is cureently distibuted with the SURFEX software, available at
34
!GLT_LIC http://www.cnrm.meteo.fr/surfex. The fact that you download the software deemed that
35
!GLT_LIC you had knowledge of the CeCILL-C license and that you accept its terms.
36
!GLT_LIC Attempts to use this software in a way not complying with CeCILL-C license
37
!GLT_LIC may lead to prosecution.
38
!GLT_LIC
39
! =======================================================================
40
! ====================== MODULE modi_gltools_adjflx =======================
41
! =======================================================================
42
!
43
! Goal:
44
! -----
45
! This module contains a subroutine that prints the integral of a
46
! quantity separately in both hemispheres.
47
!
48
! Created : 2001/08 (D. Salas y Melia)
49
! Does part of the job formerly handled by thermo_ice routine.
50
! Modified: 2010/06 (D. Salas y Melia)
51
! Average flux of a field (with a criterion on space)
52
!
53
! ------------------- BEGIN MODULE modi_gltools_adjflx --------------------
54
!
55
!THXS_SFX!MODULE modi_gltools_adjflx
56
!THXS_SFX!INTERFACE
57
!THXS_SFX!!
58
!THXS_SFX!FUNCTION gltools_adjflx(tpdom,ocrit,pfield)
59
!THXS_SFX! USE modd_types_glt
60
!THXS_SFX! USE modd_glt_param
61
!THXS_SFX! TYPE(t_dom), DIMENSION(nx,ny), INTENT(in) :: &
62
!THXS_SFX! tpdom
63
!THXS_SFX! LOGICAL, DIMENSION(nx,ny), INTENT(in) :: &
64
!THXS_SFX! ocrit
65
!THXS_SFX! REAL, DIMENSION(nx,ny), INTENT(in) :: &
66
!THXS_SFX! pfield
67
!THXS_SFX! REAL, DIMENSION(nx,ny) :: &
68
!THXS_SFX! gltools_adjflx
69
!THXS_SFX!END FUNCTION gltools_adjflx
70
!THXS_SFX!!
71
!THXS_SFX!END INTERFACE
72
!THXS_SFX!END MODULE modi_gltools_adjflx
73
!
74
! -------------------- END MODULE modi_gltools_adjflx ---------------------
75
!
76
!
77
! -----------------------------------------------------------------------
78
! -------------------------- FUNCTION gltools_adjflx ----------------------------
79
!
80
! * Subroutine used to check global sea ice extent, area and volume in
81
! both hemispheres.
82
!
83
FUNCTION
gltools_adjflx
(tpdom,ocrit,pfield)
84
!
85
USE
modd_glt_const_thm
86
USE
modd_types_glt
87
USE
modd_glt_param
88
!
89
IMPLICIT NONE
90
!
91
TYPE(
t_dom
)
,
DIMENSION(nx,ny)
,
INTENT(in)
:: &
92
tpdom
93
LOGICAL
,
DIMENSION(nx,ny)
,
INTENT(in)
:: &
94
ocrit
95
REAL
,
DIMENSION(nx,ny)
,
INTENT(in)
:: &
96
pfield
97
REAL
,
DIMENSION(nx,ny)
:: &
98
gltools_adjflx
99
!
100
REAL
:: &
101
zint,zsrf
102
!
103
!
104
! * Compute field integral
105
zint = sum( tpdom(:,:)%srf*pfield(:,:), mask=ocrit(:,:) )
106
!
107
! * Compute surface of the domain
108
zsrf = sum( tpdom(:,:)%srf, mask=ocrit(:,:) )
109
!
110
! * Compute the correction
111
gltools_adjflx
(:,:) = 0.
112
IF
( zsrf>epsil1 )
THEN
113
WHERE
( ocrit(:,:) )
114
gltools_adjflx
(:,:) = dtt*zint/zsrf
115
ENDWHERE
116
ENDIF
117
!
118
END FUNCTION
gltools_adjflx
119
!
120
! ------------------------ END FUNCTION gltools_adjflx --------------------------
121
! -----------------------------------------------------------------------
modd_types_glt
Definition:
modd_types_glt.F90:65
modd_glt_param
Definition:
modd_glt_param.F90:53
modd_types_glt::t_dom
Definition:
modd_types_glt.F90:73
gltools_adjflx
real function, dimension(nx, ny) gltools_adjflx(tpdom, ocrit, pfield)
Definition:
modi_gltools_adjflx.F90:83
modd_glt_const_thm
Definition:
modd_glt_const_thm.F90:44
Generated on Fri May 13 2016 09:31:00 for SURFEX by
1.8.5