/[lmdze]/trunk/libf/phylmd/printflag.f90
ViewVC logotype

Diff of /trunk/libf/phylmd/printflag.f90

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

trunk/libf/phylmd/printflag.f revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC trunk/libf/phylmd/printflag.f90 revision 12 by guez, Mon Jul 21 16:05:07 2008 UTC
# Line 1  Line 1 
1  !  SUBROUTINE printflag(radpas, ok_ocean, ok_oasis, ok_journe, ok_instan, &
2  ! $Header: /home/cvsroot/LMDZ4/libf/phylmd/printflag.F,v 1.1.1.1 2004/05/19 12:53:09 lmdzadmin Exp $       ok_region)
 !  
        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 )  
3    
4   22    FORMAT(2x,'$$$$$$$$   Attention !!        radpas  different  sur',    ! From phylmd/printflag.F, v 1.1.1.1 2004/05/19 12:53:09
5       , /1x,10x,' startphy = ',i3,2x,' et  run.def = ',i3 )    ! Auteur : P. Le Van
6    
7   100   FORMAT(/)    USE clesphys2, ONLY: cycle_diurne, iflag_con, nbapp_rad, new_oliq, &
8           ok_limitvrai, ok_orodr, ok_orolf, soil_model
9    
10         RETURN    IMPLICIT NONE
11         END  
12      INTEGER, INTENT (IN) :: radpas
13      LOGICAL, INTENT (IN) :: ok_ocean, ok_oasis, ok_journe, ok_instan, ok_region
14    
15      !--------------------------------------------------
16    
17      PRINT *, 'Choix des principales cles de la physique'
18      PRINT 10, cycle_diurne, soil_model
19    
20      select case (iflag_con)
21      case (1)
22         PRINT *, 'Shema convection LMD'
23      case (2)
24         PRINT *, 'Shema convection Tiedtke'
25      case (3)
26         PRINT *, 'Shema convection CCM'
27      END select
28    
29      PRINT 11, new_oliq, ok_orodr, ok_orolf
30      PRINT 7, ok_limitvrai
31      PRINT 12, nbapp_rad
32      PRINT 8, radpas
33      PRINT 5, ok_ocean, ok_oasis
34      PRINT 4, ok_journe, ok_instan, ok_region
35    
36    4 FORMAT ('ok_journe= ', L3, ', ok_instan = ', L3, ', ok_region = ', L3)
37    5 FORMAT ('ok_ocean = ', L3, ', ok_oasis = ', L3)
38    7 FORMAT ('ok_limitvrai   = ', L3)
39    8 FORMAT ('radpas = ', I4)
40    10 FORMAT ('Cycle_diurne = ', L3, ', Soil_model = ', L3)
41    11 FORMAT ('new_oliq = ', L3, ', Ok_orodr = ', L3, ', Ok_orolf = ', L3)
42    12 FORMAT ('Nb d appels /jour des routines de rayonn. = ', I4)
43    
44    END SUBROUTINE printflag
Legend:
Removed from v.3  
changed lines
  Added in v.12
  ViewVC Help
Powered by ViewVC 1.1.21