source: lmdz_wrf/WRFV3/lmdz/printflag.F90 @ 1

!
! $Header$
!
       SUBROUTINE  printflag( tabcntr0, radpas,                                      &
       &                        ok_journe,ok_instan,ok_region        )
!c

!c
!c      Auteur :  P. Le Van 

       IMPLICIT NONE

       REAL tabcntr0( 100 )
       LOGICAL cycle_diurn0,soil_model0,new_oliq0,ok_orodr0
       LOGICAL ok_orolf0,ok_limitvr0
       LOGICAL ok_journe,ok_instan,ok_region
       INTEGER radpas , radpas0
!c
#include "clesphys.h"
!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.GE. 3 )   THEN
           PRINT *,' *****           Shema  convection    Emanuel                   '&
       &//'           ******'
       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 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("*"),'  ok_journe= ',l3,3x,',ok_instan = ',                        &
       & l3,3x,',ok_region = ',l3,3x,5("*") )

 7     FORMAT(2x,5("*"),15x,'      ok_limitvrai   = ',l3,16x,5("*") )

 8     FORMAT(2x,'*****             radpas    =                      ' ,             &
       & i4,6x,' *****')

 10    FORMAT(2x,5("*"),'    Cycle_diurne = ',l3,4x,', Soil_model = ',               &
       & l3,12x,6("*") )


 11    FORMAT(2x,5("*"),'  new_oliq = ',l3,3x,', Ok_orodr = ',                       &
       & l3,3x,', Ok_orolf = ',l3,3x,5("*") )


 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 )

 22    FORMAT(2x,'$$$$$$$$   Attention !!        radpas  different  sur',            &
       & /1x,10x,' startphy = ',i3,2x,' et  run.def = ',i3 )

 100   FORMAT(/)

       RETURN
       END SUBROUTINE printflag