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