--- trunk/libf/phylmd/printflag.f 2008/02/27 13:16:39 3 +++ trunk/libf/phylmd/printflag.f90 2008/07/21 16:05:07 12 @@ -1,191 +1,44 @@ -! -! $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 ) +SUBROUTINE printflag(radpas, ok_ocean, ok_oasis, ok_journe, ok_instan, & + ok_region) - 22 FORMAT(2x,'$$$$$$$$ Attention !! radpas different sur', - , /1x,10x,' startphy = ',i3,2x,' et run.def = ',i3 ) + ! From phylmd/printflag.F, v 1.1.1.1 2004/05/19 12:53:09 + ! Auteur : P. Le Van - 100 FORMAT(/) + USE clesphys2, ONLY: cycle_diurne, iflag_con, nbapp_rad, new_oliq, & + ok_limitvrai, ok_orodr, ok_orolf, soil_model - RETURN - END + IMPLICIT NONE + + INTEGER, INTENT (IN) :: radpas + LOGICAL, INTENT (IN) :: ok_ocean, ok_oasis, ok_journe, ok_instan, ok_region + + !-------------------------------------------------- + + PRINT *, 'Choix des principales cles de la physique' + PRINT 10, cycle_diurne, soil_model + + select case (iflag_con) + case (1) + PRINT *, 'Shema convection LMD' + case (2) + PRINT *, 'Shema convection Tiedtke' + case (3) + PRINT *, 'Shema convection CCM' + END select + + PRINT 11, new_oliq, ok_orodr, ok_orolf + PRINT 7, ok_limitvrai + PRINT 12, nbapp_rad + PRINT 8, radpas + PRINT 5, ok_ocean, ok_oasis + PRINT 4, ok_journe, ok_instan, ok_region + +4 FORMAT ('ok_journe= ', L3, ', ok_instan = ', L3, ', ok_region = ', L3) +5 FORMAT ('ok_ocean = ', L3, ', ok_oasis = ', L3) +7 FORMAT ('ok_limitvrai = ', L3) +8 FORMAT ('radpas = ', I4) +10 FORMAT ('Cycle_diurne = ', L3, ', Soil_model = ', L3) +11 FORMAT ('new_oliq = ', L3, ', Ok_orodr = ', L3, ', Ok_orolf = ', L3) +12 FORMAT ('Nb d appels /jour des routines de rayonn. = ', I4) + +END SUBROUTINE printflag