| 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 |
Parent Directory
| 
Revision Log