printflag.F

Go to the documentation of this file.

!
! $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