source: LMDZ6/trunk/libf/phylmd/Dust/lmdz_spla_ini.f90 @ 5875

Last change on this file since 5875 was 5554, checked in by asima, 9 months ago

Encapsulating in modules 3 Dust (SPLA) subroutines with identical names in INCA
(see also r5505);
Related changes in other files, especially some cleaning of chem_mod_f.90.
Everything cf the new coding conventions bien sûr !
File size: 1.4 KB
Line 
1MODULE lmdz_spla_ini
2
3IMPLICIT NONE
4
5SAVE
6
7! from indice_sol_mod.f90
8INTEGER, PROTECTED :: is_oce
9!$OMP THREADPRIVATE(is_oce)
10
11! from yomcst_mod_h.f90
12REAL, PROTECTED :: RNAVO,RG,RD,RCPD,RLVTT,RLSTT,RETV,RTT 
13!$OMP THREADPRIVATE(RNAVO,RG,RD,RCPD,RLVTT,RLSTT,RETV,RTT)
14
15! from yoethf_mod_h.f90
16! COMMON *YOETHF* DERIVED CONSTANTS SPECIFIC TO ECMWF THERMODYNAMICS
17REAL :: R2ES,R3IES,R3LES,R4IES,R4LES,R5IES,R5LES,RVTMP2     
18!$OMP THREADPRIVATE(R2ES,R3LES,R3IES,R4LES,R4IES,R5LES,R5IES,RVTMP2)
19
20! from chem_mod_h.f90
21REAL, PARAMETER :: masse_s=32.0  !--g mol-1 ; molar mass sulfur-32 isotope (stable)
22
23! from chem_spla_mod_h.f90
24REAL, PARAMETER :: masse_ammsulfate = 132.0  !--g mol-1
25
26CONTAINS
27
28SUBROUTINE spla_ini(is_oce_in,   &
29                RNAVO_in,RG_in,RD_in,RCPD_in,RLVTT_in,RLSTT_in,RETV_in,RTT_in,  &
30                R2ES_in,R3LES_in,R3IES_in,R4LES_in,R4IES_in,R5LES_in,R5IES_in,RVTMP2_in  &
31                )
32
33IMPLICIT NONE
34
35integer, intent(in) :: is_oce_in
36real, intent(in) :: RNAVO_in,RG_in,RD_in,RCPD_in,RLVTT_in,RLSTT_in,RETV_in,RTT_in
37real, intent(in) :: R2ES_in,R3LES_in,R3IES_in,R4LES_in,R4IES_in,R5LES_in,R5IES_in,RVTMP2_in
38
39is_oce=is_oce_in
40
41RNAVO=RNAVO_in
42RG=RG_in
43RD=RD_in
44RCPD=RCPD_in
45RLVTT=RLVTT_in
46RLSTT=RLSTT_in
47RETV=RETV_in
48RTT=RTT_in
49
50R2ES=R2ES_in
51R3LES=R3LES_in
52R3IES=R3IES_in
53R4LES=R4LES_in
54R4IES=R4IES_in
55R5LES=R5LES_in
56R5IES=R5IES_in
57RVTMP2=RVTMP2_in
58
59END SUBROUTINE spla_ini
60
61END MODULE lmdz_spla_ini
Note: See TracBrowser for help on using the repository browser.