printflag.F90

Go to the documentation of this file.

! $Id$

SUBROUTINE printflag(tabcntr0, radpas, ok_journe, ok_instan, ok_region)



  ! 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

  include "clesphys.h"


  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==1) THEN
    print *, ' *****           Shema  convection   LMD        &
      &                                                       &
      &                   ******'
  ELSE IF (iflag_con==2) THEN
    print *, ' *****           Shema  convection  Tiedtke     &
      &                                                       &
      &                   ******'
  ELSE IF (iflag_con>=3) THEN
    print *, ' *****           Shema  convection    Emanuel   &
      &                                                       &
      &                   ******'
  END IF
  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


  cycle_diurn0 = .false.
  soil_model0 = .false.
  new_oliq0 = .false.
  ok_orodr0 = .false.
  ok_orolf0 = .false.
  ok_limitvr0 = .false.

  IF (tabcntr0(7)==1.) cycle_diurn0 = .true.
  IF (tabcntr0(8)==1.) soil_model0 = .true.
  IF (tabcntr0(9)==1.) new_oliq0 = .true.
  IF (tabcntr0(10)==1.) ok_orodr0 = .true.
  IF (tabcntr0(11)==1.) ok_orolf0 = .true.
  IF (tabcntr0(12)==1.) ok_limitvr0 = .true.

  print *, ' $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ &
    &                                                         &
    & $$$$$$$$$$$$$'
  print 100

  IF (int(tabcntr0(5))/=iflag_con) THEN
    print 20, int(tabcntr0(5)), iflag_con
    print 100
  END IF

  IF (int(tabcntr0(6))/=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
  END IF

  IF (cycle_diurn0 .AND. .NOT. cycle_diurne .OR. .NOT. cycle_diurn0 .AND. &
      cycle_diurne) THEN
    print 13, cycle_diurn0, cycle_diurne
    print 100
  END IF

  IF (soil_model0 .AND. .NOT. soil_model .OR. .NOT. soil_model0 .AND. &
      soil_model) THEN
    print 14, soil_model0, soil_model
    print 100
  END IF

  IF (new_oliq0 .AND. .NOT. new_oliq .OR. .NOT. new_oliq0 .AND. new_oliq) &
      THEN
    print 16, new_oliq0, new_oliq
    print 100
  END IF

  IF (ok_orodr0 .AND. .NOT. ok_orodr .OR. .NOT. ok_orodr0 .AND. ok_orodr) &
      THEN
    print 15, ok_orodr0, ok_orodr
    print 100
  END IF

  IF (ok_orolf0 .AND. .NOT. ok_orolf .OR. .NOT. ok_orolf0 .AND. ok_orolf) &
      THEN
    print 17, ok_orolf0, ok_orolf
    print 100
  END IF

  IF (ok_limitvr0 .AND. .NOT. ok_limitvrai .OR. .NOT. ok_limitvr0 .AND. &
      ok_limitvrai) THEN
    print 18, ok_limitvr0, ok_limitvrai
    print 100
  END IF

  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