1 |
! |
2 |
! $Header: /home/cvsroot/LMDZ4/libf/phylmd/printflag.F,v 1.1.1.1 2004/05/19 12:53:09 lmdzadmin Exp $ |
3 |
! |
4 |
SUBROUTINE printflag( tabcntr0, radpas, ok_ocean,ok_oasis, |
5 |
, ok_journe,ok_instan,ok_region ) |
6 |
c |
7 |
|
8 |
c |
9 |
c Auteur : P. Le Van |
10 |
|
11 |
use clesphys |
12 |
|
13 |
IMPLICIT NONE |
14 |
|
15 |
REAL tabcntr0( 100 ) |
16 |
LOGICAL cycle_diurn0,soil_model0,new_oliq0,ok_orodr0 |
17 |
LOGICAL ok_orolf0,ok_limitvr0 |
18 |
LOGICAL ok_ocean,ok_oasis,ok_journe,ok_instan,ok_region |
19 |
INTEGER radpas , radpas0 |
20 |
c |
21 |
c |
22 |
c |
23 |
PRINT 100 |
24 |
PRINT *,' ******************************************************* |
25 |
,************' |
26 |
PRINT *,' ******** Choix des principales cles de la physique |
27 |
, *********' |
28 |
PRINT *,' ******************************************************* |
29 |
,************' |
30 |
PRINT 100 |
31 |
PRINT 10, cycle_diurne, soil_model |
32 |
PRINT 100 |
33 |
|
34 |
IF ( iflag_con.EQ. 1 ) THEN |
35 |
PRINT *,' ***** Shema convection LMD |
36 |
, ******' |
37 |
ELSE IF ( iflag_con.EQ. 2 ) THEN |
38 |
PRINT *,' ***** Shema convection Tiedtke |
39 |
, ******' |
40 |
ELSE IF ( iflag_con.EQ. 3 ) THEN |
41 |
PRINT *,' ***** Shema convection CCM |
42 |
, ******' |
43 |
ENDIF |
44 |
PRINT 100 |
45 |
|
46 |
PRINT 11, new_oliq, ok_orodr, ok_orolf |
47 |
PRINT 100 |
48 |
|
49 |
PRINT 7, ok_limitvrai |
50 |
PRINT 100 |
51 |
|
52 |
PRINT 12, nbapp_rad |
53 |
PRINT 100 |
54 |
|
55 |
PRINT 8, radpas |
56 |
PRINT 100 |
57 |
|
58 |
PRINT 5, ok_ocean,ok_oasis |
59 |
PRINT 100 |
60 |
|
61 |
PRINT 4,ok_journe,ok_instan,ok_region |
62 |
PRINT 100 |
63 |
PRINT 100 |
64 |
c |
65 |
c |
66 |
cycle_diurn0 = .FALSE. |
67 |
soil_model0 = .FALSE. |
68 |
new_oliq0 = .FALSE. |
69 |
ok_orodr0 = .FALSE. |
70 |
ok_orolf0 = .FALSE. |
71 |
ok_limitvr0 = .FALSE. |
72 |
|
73 |
IF( tabcntr0( 7 ).EQ. 1. ) cycle_diurn0 = .TRUE. |
74 |
IF( tabcntr0( 8 ).EQ. 1. ) soil_model0 = .TRUE. |
75 |
IF( tabcntr0( 9 ).EQ. 1. ) new_oliq0 = .TRUE. |
76 |
IF( tabcntr0(10 ).EQ. 1. ) ok_orodr0 = .TRUE. |
77 |
IF( tabcntr0(11 ).EQ. 1. ) ok_orolf0 = .TRUE. |
78 |
IF( tabcntr0(12 ).EQ. 1. ) ok_limitvr0 = .TRUE. |
79 |
|
80 |
PRINT *,' $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ |
81 |
,$$$$$$$$$$$$$' |
82 |
PRINT 100 |
83 |
c |
84 |
IF( INT( tabcntr0( 5 ) ) .NE. iflag_con ) THEN |
85 |
PRINT 20, INT(tabcntr0(5)), iflag_con |
86 |
PRINT 100 |
87 |
ENDIF |
88 |
|
89 |
IF( INT( tabcntr0( 6 ) ) .NE. nbapp_rad ) THEN |
90 |
PRINT 21, INT(tabcntr0(6)), nbapp_rad |
91 |
radpas0 = NINT( 86400./tabcntr0(1)/INT( tabcntr0(6) ) ) |
92 |
PRINT 100 |
93 |
PRINT 22, radpas0, radpas |
94 |
PRINT 100 |
95 |
ENDIF |
96 |
|
97 |
IF( cycle_diurn0.AND..NOT.cycle_diurne.OR..NOT.cycle_diurn0.AND. |
98 |
, cycle_diurne ) THEN |
99 |
PRINT 13, cycle_diurn0, cycle_diurne |
100 |
PRINT 100 |
101 |
ENDIF |
102 |
|
103 |
IF( soil_model0.AND..NOT.soil_model.OR..NOT.soil_model0.AND. |
104 |
, soil_model ) THEN |
105 |
PRINT 14, soil_model0, soil_model |
106 |
PRINT 100 |
107 |
ENDIF |
108 |
|
109 |
IF( new_oliq0.AND..NOT.new_oliq.OR..NOT.new_oliq0.AND. |
110 |
, new_oliq ) THEN |
111 |
PRINT 16, new_oliq0, new_oliq |
112 |
PRINT 100 |
113 |
ENDIF |
114 |
|
115 |
IF( ok_orodr0.AND..NOT.ok_orodr.OR..NOT.ok_orodr0.AND. |
116 |
, ok_orodr ) THEN |
117 |
PRINT 15, ok_orodr0, ok_orodr |
118 |
PRINT 100 |
119 |
ENDIF |
120 |
|
121 |
IF( ok_orolf0.AND..NOT.ok_orolf.OR..NOT.ok_orolf0.AND. |
122 |
, ok_orolf ) THEN |
123 |
PRINT 17, ok_orolf0, ok_orolf |
124 |
PRINT 100 |
125 |
ENDIF |
126 |
|
127 |
IF( ok_limitvr0.AND..NOT.ok_limitvrai.OR..NOT.ok_limitvr0. |
128 |
, AND.ok_limitvrai ) THEN |
129 |
PRINT 18, ok_limitvr0, ok_limitvrai |
130 |
PRINT 100 |
131 |
ENDIF |
132 |
|
133 |
PRINT 100 |
134 |
PRINT *,' ******************************************************* |
135 |
,************' |
136 |
PRINT 100 |
137 |
|
138 |
4 FORMAT(2x,5(1H*),' ok_journe= ',l3,3x,',ok_instan = ', |
139 |
, l3,3x,',ok_region = ',l3,3x,5(1H*) ) |
140 |
|
141 |
5 FORMAT(2x,5(1H*),' ok_ocean = ',l3,6x,' , ok_oasis = ', |
142 |
, l3,14x,5(1H*) ) |
143 |
|
144 |
|
145 |
7 FORMAT(2x,5(1H*),15x,' ok_limitvrai = ',l3,16x,5(1h*) ) |
146 |
|
147 |
8 FORMAT(2x,'***** radpas = ' , |
148 |
, i4,6x,' *****') |
149 |
|
150 |
10 FORMAT(2x,5(1H*),' Cycle_diurne = ',l3,4x,', Soil_model = ', |
151 |
, l3,12x,6(1H*) ) |
152 |
|
153 |
|
154 |
11 FORMAT(2x,5(1H*),' new_oliq = ',l3,3x,', Ok_orodr = ', |
155 |
, l3,3x,', Ok_orolf = ',l3,3x,5(1H*) ) |
156 |
|
157 |
|
158 |
12 FORMAT(2x,'***** Nb d appels /jour des routines de rayonn. = ' , |
159 |
, i4,6x,' *****') |
160 |
|
161 |
13 FORMAT(2x,'$$$$$$$$ Attention !! cycle_diurne different sur', |
162 |
, /1x,10x,' startphy = ',l3,2x,' et run.def = ',l3) |
163 |
|
164 |
14 FORMAT(2x,'$$$$$$$$ Attention !! soil_model different sur', |
165 |
, /1x,10x,' startphy = ',l3,2x,' et run.def = ',l3) |
166 |
|
167 |
15 FORMAT(2x,'$$$$$$$$ Attention !! ok_orodr different sur', |
168 |
, /1x,10x,' startphy = ',l3,2x,' et run.def = ',l3) |
169 |
|
170 |
16 FORMAT(2x,'$$$$$$$$ Attention !! new_oliq different sur', |
171 |
, /1x,10x,' startphy = ',l3,2x,' et run.def = ',l3) |
172 |
|
173 |
17 FORMAT(2x,'$$$$$$$$ Attention !! ok_orolf different sur', |
174 |
, /1x,10x,' startphy = ',l3,2x,' et run.def = ',l3) |
175 |
|
176 |
18 FORMAT(2x,'$$$$$$$$ Attention !! ok_limitvrai different sur', |
177 |
, /1x,10x,' startphy = ',l3,2x,' et run.def = ',l3) |
178 |
|
179 |
20 FORMAT(/2x,'$$$$$$$$ Attention !! iflag_con different sur', |
180 |
, /1x,10x,' startphy = ',i3,2x,' et run.def = ',i3 ) |
181 |
|
182 |
21 FORMAT(2x,'$$$$$$$$ Attention !! nbapp_rad different sur', |
183 |
, /1x,10x,' startphy = ',i3,2x,' et run.def = ',i3 ) |
184 |
|
185 |
22 FORMAT(2x,'$$$$$$$$ Attention !! radpas different sur', |
186 |
, /1x,10x,' startphy = ',i3,2x,' et run.def = ',i3 ) |
187 |
|
188 |
100 FORMAT(/) |
189 |
|
190 |
RETURN |
191 |
END |