1 |
! |
SUBROUTINE printflag(radpas, ok_journe, ok_instan, ok_region) |
|
! $Header: /home/cvsroot/LMDZ4/libf/phylmd/printflag.F,v 1.1.1.1 2004/05/19 12:53:09 lmdzadmin Exp $ |
|
|
! |
|
|
SUBROUTINE printflag( tabcntr0, radpas, ok_ocean,ok_oasis, |
|
|
, ok_journe,ok_instan,ok_region ) |
|
|
c |
|
|
|
|
|
c |
|
|
c Auteur : P. Le Van |
|
|
|
|
|
use clesphys |
|
|
|
|
|
IMPLICIT NONE |
|
|
|
|
|
REAL tabcntr0( 100 ) |
|
|
LOGICAL cycle_diurn0,soil_model0,new_oliq0,ok_orodr0 |
|
|
LOGICAL ok_orolf0,ok_limitvr0 |
|
|
LOGICAL ok_ocean,ok_oasis,ok_journe,ok_instan,ok_region |
|
|
INTEGER radpas , radpas0 |
|
|
c |
|
|
c |
|
|
c |
|
|
PRINT 100 |
|
|
PRINT *,' ******************************************************* |
|
|
,************' |
|
|
PRINT *,' ******** Choix des principales cles de la physique |
|
|
, *********' |
|
|
PRINT *,' ******************************************************* |
|
|
,************' |
|
|
PRINT 100 |
|
|
PRINT 10, cycle_diurne, soil_model |
|
|
PRINT 100 |
|
|
|
|
|
IF ( iflag_con.EQ. 1 ) THEN |
|
|
PRINT *,' ***** Shema convection LMD |
|
|
, ******' |
|
|
ELSE IF ( iflag_con.EQ. 2 ) THEN |
|
|
PRINT *,' ***** Shema convection Tiedtke |
|
|
, ******' |
|
|
ELSE IF ( iflag_con.EQ. 3 ) THEN |
|
|
PRINT *,' ***** Shema convection CCM |
|
|
, ******' |
|
|
ENDIF |
|
|
PRINT 100 |
|
|
|
|
|
PRINT 11, new_oliq, ok_orodr, ok_orolf |
|
|
PRINT 100 |
|
|
|
|
|
PRINT 7, ok_limitvrai |
|
|
PRINT 100 |
|
|
|
|
|
PRINT 12, nbapp_rad |
|
|
PRINT 100 |
|
|
|
|
|
PRINT 8, radpas |
|
|
PRINT 100 |
|
|
|
|
|
PRINT 5, ok_ocean,ok_oasis |
|
|
PRINT 100 |
|
|
|
|
|
PRINT 4,ok_journe,ok_instan,ok_region |
|
|
PRINT 100 |
|
|
PRINT 100 |
|
|
c |
|
|
c |
|
|
cycle_diurn0 = .FALSE. |
|
|
soil_model0 = .FALSE. |
|
|
new_oliq0 = .FALSE. |
|
|
ok_orodr0 = .FALSE. |
|
|
ok_orolf0 = .FALSE. |
|
|
ok_limitvr0 = .FALSE. |
|
|
|
|
|
IF( tabcntr0( 7 ).EQ. 1. ) cycle_diurn0 = .TRUE. |
|
|
IF( tabcntr0( 8 ).EQ. 1. ) soil_model0 = .TRUE. |
|
|
IF( tabcntr0( 9 ).EQ. 1. ) new_oliq0 = .TRUE. |
|
|
IF( tabcntr0(10 ).EQ. 1. ) ok_orodr0 = .TRUE. |
|
|
IF( tabcntr0(11 ).EQ. 1. ) ok_orolf0 = .TRUE. |
|
|
IF( tabcntr0(12 ).EQ. 1. ) ok_limitvr0 = .TRUE. |
|
|
|
|
|
PRINT *,' $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ |
|
|
,$$$$$$$$$$$$$' |
|
|
PRINT 100 |
|
|
c |
|
|
IF( INT( tabcntr0( 5 ) ) .NE. iflag_con ) THEN |
|
|
PRINT 20, INT(tabcntr0(5)), iflag_con |
|
|
PRINT 100 |
|
|
ENDIF |
|
|
|
|
|
IF( INT( tabcntr0( 6 ) ) .NE. nbapp_rad ) THEN |
|
|
PRINT 21, INT(tabcntr0(6)), nbapp_rad |
|
|
radpas0 = NINT( 86400./tabcntr0(1)/INT( tabcntr0(6) ) ) |
|
|
PRINT 100 |
|
|
PRINT 22, radpas0, radpas |
|
|
PRINT 100 |
|
|
ENDIF |
|
|
|
|
|
IF( cycle_diurn0.AND..NOT.cycle_diurne.OR..NOT.cycle_diurn0.AND. |
|
|
, cycle_diurne ) THEN |
|
|
PRINT 13, cycle_diurn0, cycle_diurne |
|
|
PRINT 100 |
|
|
ENDIF |
|
|
|
|
|
IF( soil_model0.AND..NOT.soil_model.OR..NOT.soil_model0.AND. |
|
|
, soil_model ) THEN |
|
|
PRINT 14, soil_model0, soil_model |
|
|
PRINT 100 |
|
|
ENDIF |
|
|
|
|
|
IF( new_oliq0.AND..NOT.new_oliq.OR..NOT.new_oliq0.AND. |
|
|
, new_oliq ) THEN |
|
|
PRINT 16, new_oliq0, new_oliq |
|
|
PRINT 100 |
|
|
ENDIF |
|
|
|
|
|
IF( ok_orodr0.AND..NOT.ok_orodr.OR..NOT.ok_orodr0.AND. |
|
|
, ok_orodr ) THEN |
|
|
PRINT 15, ok_orodr0, ok_orodr |
|
|
PRINT 100 |
|
|
ENDIF |
|
|
|
|
|
IF( ok_orolf0.AND..NOT.ok_orolf.OR..NOT.ok_orolf0.AND. |
|
|
, ok_orolf ) THEN |
|
|
PRINT 17, ok_orolf0, ok_orolf |
|
|
PRINT 100 |
|
|
ENDIF |
|
|
|
|
|
IF( ok_limitvr0.AND..NOT.ok_limitvrai.OR..NOT.ok_limitvr0. |
|
|
, AND.ok_limitvrai ) THEN |
|
|
PRINT 18, ok_limitvr0, ok_limitvrai |
|
|
PRINT 100 |
|
|
ENDIF |
|
|
|
|
|
PRINT 100 |
|
|
PRINT *,' ******************************************************* |
|
|
,************' |
|
|
PRINT 100 |
|
|
|
|
|
4 FORMAT(2x,5(1H*),' ok_journe= ',l3,3x,',ok_instan = ', |
|
|
, l3,3x,',ok_region = ',l3,3x,5(1H*) ) |
|
|
|
|
|
5 FORMAT(2x,5(1H*),' ok_ocean = ',l3,6x,' , ok_oasis = ', |
|
|
, l3,14x,5(1H*) ) |
|
|
|
|
|
|
|
|
7 FORMAT(2x,5(1H*),15x,' ok_limitvrai = ',l3,16x,5(1h*) ) |
|
|
|
|
|
8 FORMAT(2x,'***** radpas = ' , |
|
|
, i4,6x,' *****') |
|
|
|
|
|
10 FORMAT(2x,5(1H*),' Cycle_diurne = ',l3,4x,', Soil_model = ', |
|
|
, l3,12x,6(1H*) ) |
|
|
|
|
|
|
|
|
11 FORMAT(2x,5(1H*),' new_oliq = ',l3,3x,', Ok_orodr = ', |
|
|
, l3,3x,', Ok_orolf = ',l3,3x,5(1H*) ) |
|
|
|
|
|
|
|
|
12 FORMAT(2x,'***** Nb d appels /jour des routines de rayonn. = ' , |
|
|
, i4,6x,' *****') |
|
|
|
|
|
13 FORMAT(2x,'$$$$$$$$ Attention !! cycle_diurne different sur', |
|
|
, /1x,10x,' startphy = ',l3,2x,' et run.def = ',l3) |
|
|
|
|
|
14 FORMAT(2x,'$$$$$$$$ Attention !! soil_model different sur', |
|
|
, /1x,10x,' startphy = ',l3,2x,' et run.def = ',l3) |
|
|
|
|
|
15 FORMAT(2x,'$$$$$$$$ Attention !! ok_orodr different sur', |
|
|
, /1x,10x,' startphy = ',l3,2x,' et run.def = ',l3) |
|
|
|
|
|
16 FORMAT(2x,'$$$$$$$$ Attention !! new_oliq different sur', |
|
|
, /1x,10x,' startphy = ',l3,2x,' et run.def = ',l3) |
|
|
|
|
|
17 FORMAT(2x,'$$$$$$$$ Attention !! ok_orolf different sur', |
|
|
, /1x,10x,' startphy = ',l3,2x,' et run.def = ',l3) |
|
|
|
|
|
18 FORMAT(2x,'$$$$$$$$ Attention !! ok_limitvrai different sur', |
|
|
, /1x,10x,' startphy = ',l3,2x,' et run.def = ',l3) |
|
|
|
|
|
20 FORMAT(/2x,'$$$$$$$$ Attention !! iflag_con different sur', |
|
|
, /1x,10x,' startphy = ',i3,2x,' et run.def = ',i3 ) |
|
|
|
|
|
21 FORMAT(2x,'$$$$$$$$ Attention !! nbapp_rad different sur', |
|
|
, /1x,10x,' startphy = ',i3,2x,' et run.def = ',i3 ) |
|
2 |
|
|
3 |
22 FORMAT(2x,'$$$$$$$$ Attention !! radpas different sur', |
! From phylmd/printflag.F, v 1.1.1.1 2004/05/19 12:53:09 |
4 |
, /1x,10x,' startphy = ',i3,2x,' et run.def = ',i3 ) |
! Auteur : P. Le Van |
5 |
|
|
6 |
100 FORMAT(/) |
IMPLICIT NONE |
7 |
|
|
8 |
RETURN |
INTEGER, INTENT (IN) :: radpas |
9 |
END |
LOGICAL, INTENT (IN) :: ok_journe, ok_instan, ok_region |
10 |
|
|
11 |
|
!-------------------------------------------------- |
12 |
|
|
13 |
|
PRINT *, 'Choix des principales clés de la physique' |
14 |
|
|
15 |
|
PRINT 8, radpas |
16 |
|
PRINT 4, ok_journe, ok_instan, ok_region |
17 |
|
|
18 |
|
4 FORMAT ('ok_journe= ', L3, ', ok_instan = ', L3, ', ok_region = ', L3) |
19 |
|
8 FORMAT ('radpas = ', I4) |
20 |
|
|
21 |
|
END SUBROUTINE printflag |