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.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • 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
Note: See TracChangeset for help on using the changeset viewer.