Ignore:
Timestamp:
May 16, 2018, 6:10:44 PM (6 years ago)
Author:
musat
Message:

Utilisation de la clef iflag_cycle_diurne et
supression de la clef cycle_diurne.

Location:
LMDZ6/branches/IPSLCM6.0.15/libf/phylmd
Files:
7 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/clesphys.h

    r3324 r3328  
    88!..include cles_phys.h
    99!
    10        LOGICAL cycle_diurne,soil_model,new_oliq,ok_orodr,ok_orolf
     10       INTEGER iflag_cycle_diurne
     11       LOGICAL soil_model,new_oliq,ok_orodr,ok_orolf
    1112       LOGICAL ok_limitvrai
    1213       LOGICAL ok_all_xml
     
    123124! THEN INTEGER AND LOGICALS
    124125     &     , top_height                                                 &
    125      &     , cycle_diurne, soil_model, new_oliq                         &
     126     &     , iflag_cycle_diurne, soil_model, new_oliq                         &
    126127     &     , ok_orodr, ok_orolf, ok_limitvrai, nbapp_rad                &
    127128     &     , iflag_con, nbapp_cv, nbapp_wk                              &
  • LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/conf_phys_m.F90

    r3318 r3328  
    213213    LOGICAL,SAVE :: ok_lic_cond_omp
    214214    !
    215     LOGICAL,SAVE  :: cycle_diurne_omp,soil_model_omp,new_oliq_omp
     215    INTEGER,SAVE  :: iflag_cycle_diurne_omp
     216    LOGICAL,SAVE  :: soil_model_omp,new_oliq_omp
    216217    LOGICAL,SAVE  :: ok_orodr_omp, ok_orolf_omp, ok_limitvrai_omp
    217218    INTEGER, SAVE :: nbapp_rad_omp, iflag_con_omp
     
    719720    ! Constantes precedemment dans dyn3d/conf_gcm
    720721
    721     !Config  Key  = cycle_diurne
    722     !Config  Desc = Cycle ddiurne
    723     !Config  Def  = y
     722    !Config  Key  = iflag_cycle_diurne
     723    !Config  Desc = Cycle diurne
     724    !Config  Def  = 1
    724725    !Config  Help = Cette option permet d'eteidre le cycle diurne.
    725726    !Config         Peut etre util pour accelerer le code !
    726     cycle_diurne_omp = .TRUE.
    727     CALL getin('cycle_diurne',cycle_diurne_omp)
     727    iflag_cycle_diurne_omp = 1
     728    CALL getin('iflag_cycle_diurne',iflag_cycle_diurne_omp)
    728729
    729730    !Config  Key  = soil_model
     
    21652166    RCFC12_per = RCFC12_per_omp
    21662167
    2167     cycle_diurne = cycle_diurne_omp
     2168    iflag_cycle_diurne = iflag_cycle_diurne_omp
    21682169    soil_model = soil_model_omp
    21692170    new_oliq = new_oliq_omp
     
    25262527    write(lunout,*)'ok_lic_melt=', ok_lic_melt
    25272528    write(lunout,*)'ok_lic_cond=', ok_lic_cond
    2528     write(lunout,*)'cycle_diurne=',cycle_diurne
     2529    write(lunout,*)'iflag_cycle_diurne=',iflag_cycle_diurne
    25292530    write(lunout,*)'soil_model=',soil_model
    25302531    write(lunout,*)'new_oliq=',new_oliq
  • LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/phyetat0.F90

    r3080 r3328  
    121121  tab_cntrl(6)=nbapp_rad
    122122
    123   if (cycle_diurne) tab_cntrl( 7) =1.
     123  if (iflag_cycle_diurne.GE.1) tab_cntrl( 7) = iflag_cycle_diurne
    124124  if (soil_model) tab_cntrl( 8) =1.
    125125  if (new_oliq) tab_cntrl( 9) =1.
  • LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/phyredem.F90

    r3080 r3328  
    9191  tab_cntrl(6) = nbapp_rad
    9292
    93   IF( cycle_diurne ) tab_cntrl( 7 ) = 1.
     93  IF( iflag_cycle_diurne.GE.1 ) tab_cntrl( 7 ) = iflag_cycle_diurne
    9494  IF(   soil_model ) tab_cntrl( 8 ) = 1.
    9595  IF(     new_oliq ) tab_cntrl( 9 ) = 1.
  • LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/physiq_mod.F90

    r3324 r3328  
    342342    INTEGER igout
    343343    !======================================================================
    344     ! Clef controlant l'activation du cycle diurne:
     344    ! Clef iflag_cycle_diurne controlant l'activation du cycle diurne:
    345345    ! en attente du codage des cles par Fred
    346     INTEGER iflag_cycle_diurne
    347     PARAMETER (iflag_cycle_diurne=1)
     346    ! iflag_cycle_diurne est initialise par conf_phys et se trouve
     347    ! dans clesphys.h (IM)
    348348    !======================================================================
    349349    ! Modele thermique du sol, a activer pour le cycle diurne:
     
    13631363       print*,'iflag_coupl,iflag_clos,iflag_wake', &
    13641364            iflag_coupl,iflag_clos,iflag_wake
    1365        print*,'iflag_CYCLE_DIURNE', iflag_cycle_diurne
     1365       print*,'iflag_cycle_diurne', iflag_cycle_diurne
    13661366       !
    13671367       IF (iflag_con.EQ.2.AND.iflag_cld_th.GT.-1) THEN
  • LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/printflag.F90

    r1992 r3328  
    3030    &  ************'
    3131  PRINT 100
    32   PRINT 10, cycle_diurne, soil_model
     32  PRINT 10, iflag_cycle_diurne.GE.1, soil_model
    3333  PRINT 100
    3434
     
    9797  END IF
    9898
    99   IF (cycle_diurn0 .AND. .NOT. cycle_diurne .OR. .NOT. cycle_diurn0 .AND. &
    100       cycle_diurne) THEN
    101     PRINT 13, cycle_diurn0, cycle_diurne
     99  IF (cycle_diurn0 .AND. .NOT. (iflag_cycle_diurne.GE.1) .OR. .NOT. cycle_diurn0 .AND. &
     100      (iflag_cycle_diurne.GE.1) ) THEN
     101    PRINT 13, cycle_diurn0, iflag_cycle_diurne
    102102    PRINT 100
    103103  END IF
  • LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/surf_ocean_mod.F90

    r3102 r3328  
     1
    12!
    23! $Id$
     
    185186!--old parametrizations of ocean surface albedo
    186187!
    187     IF (cycle_diurne) THEN
     188    IF (iflag_cycle_diurne.GE.1) THEN
    188189!
    189190       CALL alboc_cd(rmu0,alb_eau)
Note: See TracChangeset for help on using the changeset viewer.