source: trunk/libf/phyvenus/printflag.F @ 91

Last change on this file since 91 was 3, checked in by slebonnois, 15 years ago

Creation de repertoires:

  • chantiers : pour communiquer sur nos projets de modifs
  • documentation : pour stocker les docs

Ajout de:

  • libf/phytitan : physique de Titan
  • libf/chimtitan: chimie de Titan
  • libf/phyvenus : physique de Venus
File size: 4.9 KB
RevLine 
[3]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,
5     ,                        ok_journe,ok_instan )
6c
7
8c
9c      Auteur :  P. Le Van
10
11       IMPLICIT NONE
12
13       REAL tabcntr0( 100 )
14       LOGICAL cycle_diurn0,soil_model0,new_oliq0,ok_orodr0
15       LOGICAL ok_orolf0,ok_gw_nonoro0
16       LOGICAL ok_journe,ok_instan
17       INTEGER radpas , radpas0
18c
19#include "clesphys.h"
20#include "YOMCST.h"
21c
22c
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
34c      PRINT 11, new_oliq, ok_orodr, ok_orolf, ok_gw_nonoro 
35c      PRINT 100
36
37       PRINT 12, nbapp_rad
38       PRINT 100
39
40       PRINT 8, radpas
41       PRINT 100
42
43       PRINT 4,ok_journe,ok_instan
44       PRINT 100
45       PRINT 100
46c
47c
48        cycle_diurn0  = .FALSE.
49        soil_model0   = .FALSE.
50        new_oliq0     = .FALSE.
51        ok_orodr0     = .FALSE.
52        ok_orolf0     = .FALSE.
53        ok_gw_nonoro0 = .FALSE.
54
55        IF( tabcntr0( 7 ).EQ. 1. )   cycle_diurn0 = .TRUE.
56        IF( tabcntr0( 8 ).EQ. 1. )    soil_model0 = .TRUE.
57        IF( tabcntr0( 9 ).EQ. 1. )      new_oliq0 = .TRUE.
58        IF( tabcntr0(10 ).EQ. 1. )      ok_orodr0 = .TRUE.
59        IF( tabcntr0(11 ).EQ. 1. )      ok_orolf0 = .TRUE.
60        IF( tabcntr0(12 ).EQ. 1. )  ok_gw_nonoro0 = .TRUE.
61
62        PRINT *,' $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
63     ,$$$$$$$$$$$$$'
64        PRINT 100
65c
66
67       IF( INT( tabcntr0( 6 ) ) .NE. nbapp_rad  )   THEN
68        PRINT 21,  INT(tabcntr0(6)), nbapp_rad
69        radpas0  = NINT( RDAY/tabcntr0(1)/INT( tabcntr0(6) ) )
70        PRINT 100
71        PRINT 22, radpas0, radpas
72        PRINT 100
73       ENDIF
74
75       IF( cycle_diurn0.AND..NOT.cycle_diurne.OR..NOT.cycle_diurn0.AND.
76     ,        cycle_diurne )     THEN
77        PRINT 13, cycle_diurn0, cycle_diurne
78        PRINT 100
79       ENDIF
80
81       IF( soil_model0.AND..NOT.soil_model.OR..NOT.soil_model0.AND.
82     ,        soil_model )     THEN
83        PRINT 14, soil_model0, soil_model
84        PRINT 100
85       ENDIF
86
87       IF( new_oliq0.AND..NOT.new_oliq.OR..NOT.new_oliq0.AND.
88     ,        new_oliq )     THEN
89        PRINT 16, new_oliq0, new_oliq
90        PRINT 100
91       ENDIF
92
93       IF( ok_orodr0.AND..NOT.ok_orodr.OR..NOT.ok_orodr0.AND.
94     ,        ok_orodr )     THEN
95        PRINT 15, ok_orodr0, ok_orodr
96        PRINT 100
97       ENDIF
98
99       IF( ok_orolf0.AND..NOT.ok_orolf.OR..NOT.ok_orolf0.AND.
100     ,        ok_orolf )     THEN
101        PRINT 17, ok_orolf0, ok_orolf
102        PRINT 100
103       ENDIF
104
105       IF( ok_gw_nonoro0.AND..NOT.ok_gw_nonoro.OR..NOT.ok_gw_nonoro0.
106     ,     AND.ok_gw_nonoro )     THEN
107        PRINT 18, ok_gw_nonoro0, ok_gw_nonoro
108        PRINT 100
109       ENDIF
110
111       PRINT 100
112       PRINT *,' *******************************************************
113     ,************'
114       PRINT 100
115
116 4    FORMAT(2x,5(1H*),'      ok_journe = ',l3,6x,' , ok_instan = ',
117     , l3,14x,5(1H*) )
118
119
120 7     FORMAT(2x,5(1H*),15x,'      ok_gw_nonoro   = ',l3,16x,5(1h*) )
121
122 8     FORMAT(2x,'*****             radpas    =                      ' ,
123     , i4,6x,' *****')
124
125 10    FORMAT(2x,5(1H*),'    Cycle_diurne = ',l3,4x,', Soil_model = ',
126     , l3,12x,6(1H*) )
127
128
129 11    FORMAT(2x,5(1H*),'  new_oliq = ',l3,3x,', Ok_orodr = ',
130     , l3,3x,', Ok_orolf = ',l3,3x,5(1H*) )
131
132
133 12    FORMAT(2x,'*****  Nb d appels /jour des routines de rayonn. = ' ,
134     , i4,6x,' *****')
135
136 13    FORMAT(2x,'$$$$$$$$   Attention !!  cycle_diurne  different  sur',
137     , /1x,10x,' startphy = ',l3,2x,' et  run.def = ',l3)
138
139 14    FORMAT(2x,'$$$$$$$$   Attention !!    soil_model  different  sur',
140     , /1x,10x,' startphy = ',l3,2x,' et  run.def = ',l3)
141
142 15    FORMAT(2x,'$$$$$$$$   Attention !!      ok_orodr  different  sur',
143     , /1x,10x,' startphy = ',l3,2x,' et  run.def = ',l3)
144
145 16    FORMAT(2x,'$$$$$$$$   Attention !!      new_oliq  different  sur',
146     , /1x,10x,' startphy = ',l3,2x,' et  run.def = ',l3)
147
148 17    FORMAT(2x,'$$$$$$$$   Attention !!      ok_orolf  different  sur',
149     , /1x,10x,' startphy = ',l3,2x,' et  run.def = ',l3)
150
151 18    FORMAT(2x,'$$$$$$$$   Attention !!  ok_gw_nonoro  different  sur',
152     , /1x,10x,' startphy = ',l3,2x,' et  run.def = ',l3)
153
154 20    FORMAT(/2x,'$$$$$$$$   Attention !!    iflag_con  different  sur',
155     , /1x,10x,' startphy = ',i3,2x,' et  run.def = ',i3 )
156
157 21    FORMAT(2x,'$$$$$$$$   Attention !!     nbapp_rad  different  sur',
158     , /1x,10x,' startphy = ',i3,2x,' et  run.def = ',i3 )
159
160 22    FORMAT(2x,'$$$$$$$$   Attention !!        radpas  different  sur',
161     , /1x,10x,' startphy = ',i3,2x,' et  run.def = ',i3 )
162
163 100   FORMAT(/)
164
165       RETURN
166       END
Note: See TracBrowser for help on using the repository browser.