source: LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_cloudth_ini.F90 @ 5128

Last change on this file since 5128 was 5119, checked in by abarral, 5 months ago

enforce PRIVATE by default in several modules, expose PUBLIC as needed
move eigen.f90 to obsolete/
(lint) aslong the way
File size: 1.8 KB
Line 
1module lmdz_cloudth_ini
2
3REAL, SAVE, protected :: C_cap ,cloudth_ratqsmin ,sigma1s_factor ,sigma1s_power ,sigma2s_factor ,sigma2s_power ,vert_alpha_th ,vert_alpha ,C_mpc , d_top , Ei , Ni
4INTEGER, SAVE, protected :: iflag_cloudth_vert_noratqs,iflag_cloudth_vert,iflag_ratqs
5
6!$OMP THREADPRIVATE(C_cap ,cloudth_ratqsmin ,sigma1s_factor ,sigma1s_power ,sigma2s_factor ,sigma2s_power ,vert_alpha_th ,vert_alpha ,C_mpc , d_top , Ei , Ni)
7!$OMP THREADPRIVATE(iflag_cloudth_vert_noratqs,iflag_cloudth_vert,iflag_ratqs)
8
9
10CONTAINS
11
12SUBROUTINE cloudth_ini(iflag_cloudth_vert_in,iflag_ratqs_in)
13
14USE lmdz_ioipsl_getin_p, ONLY: getin_p
15IMPLICIT NONE
16INTEGER, INTENT(IN) :: iflag_cloudth_vert_in,iflag_ratqs_in
17
18
19        iflag_cloudth_vert=iflag_cloudth_vert_in
20        iflag_ratqs=iflag_ratqs_in
21
22        vert_alpha=0.5
23        sigma1s_factor=1.1
24        sigma1s_power=0.6
25        sigma2s_factor=0.09
26        sigma2s_power=0.5
27        cloudth_ratqsmin=-1.
28        iflag_cloudth_vert_noratqs=0
29        C_mpc=1.e4
30        Ni=2.0e3
31        Ei=0.5
32        C_cap=0.5
33        d_top=1.2
34
35
36        CALL getin_p('C_cap', C_cap)
37        CALL getin_p('cloudth_ratqsmin',cloudth_ratqsmin)
38        CALL getin_p('cloudth_sigma1s_factor',sigma1s_factor)
39        CALL getin_p('cloudth_sigma1s_power',sigma1s_power)
40        CALL getin_p('cloudth_sigma2s_factor',sigma2s_factor)
41        CALL getin_p('cloudth_sigma2s_power',sigma2s_power)
42        CALL getin_p('cloudth_vert_alpha',vert_alpha)
43        vert_alpha_th=vert_alpha
44        CALL getin_p('cloudth_vert_alpha_th',vert_alpha_th)
45        CALL getin_p('C_mpc',C_mpc)
46        CALL getin_p('d_top', d_top)
47        CALL getin_p('Ei', Ei)
48        CALL getin_p('iflag_cloudth_vert_noratqs',iflag_cloudth_vert_noratqs)
49        CALL getin_p('Ni', Ni)
50
51END SUBROUTINE  cloudth_ini
52
53END MODULE lmdz_cloudth_ini
Note: See TracBrowser for help on using the repository browser.