Changeset 3327 for LMDZ6/trunk/libf


Ignore:
Timestamp:
May 16, 2018, 3:58:59 PM (7 years ago)
Author:
musat
Message:

tau_gl declare dans clesphys.h et lu dans physiq_mod.
Par defaut tau_gl=86400.*5. pour coherence avec versions anciennes.

Location:
LMDZ6/trunk/libf/phylmd
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/clesphys.h

    r3317 r3327  
    5656       Real f_rugoro,z0min
    5757
     58! tau_gl : constante de rappel de la temperature a la surface de la glace
     59       REAL tau_gl
     60
    5861!IM lev_histhf  : niveau sorties 6h
    5962!IM lev_histday : niveau sorties journalieres
    … …  
    105108     &     , cdmmax,cdhmax,ksta,ksta_ter,f_ri_cd_min,pbl_lmixmin_alpha  &
    106109     &     , fmagic, pmagic                                             &
    107      &     , f_cdrag_ter,f_cdrag_oce,f_rugoro,z0min                     &
     110     &     , f_cdrag_ter,f_cdrag_oce,f_rugoro,z0min,tau_gl              &
    108111     &     , min_wind_speed,f_gust_wk,f_gust_bl,f_qsat_oce,f_z0qh_oce   &
    109112     &     , z0m_seaice,z0h_seaice                                      &

  • LMDZ6/trunk/libf/phylmd/ocean_forced_mod.F90

    r3102 r3327  
    162162    USE dimphy
    163163    USE calcul_fluxs_mod
    164     USE surface_data,     ONLY : calice, calsno, tau_gl
     164    USE surface_data,     ONLY : calice, calsno
    165165    USE limit_read_mod
    166166    USE fonte_neige_mod,  ONLY : fonte_neige

  • LMDZ6/trunk/libf/phylmd/physiq_mod.F90

    r3317 r3327  
    12671267    IF (debut) THEN
    12681268       CALL suphel ! initialiser constantes et parametres phys.
     1269! tau_gl : constante de rappel de la temperature a la surface de la glace - en
     1270       tau_gl=5.
     1271       CALL getin_p('tau_gl', tau_gl)
     1272! tau_gl : constante de rappel de la temperature a la surface de la glace - en
     1273! secondes
     1274       tau_gl=86400.*tau_gl
     1275       print*,'debut physiq_mod tau_gl=',tau_gl
    12691276       CALL getin_p('iflag_alp_wk_cond', iflag_alp_wk_cond)
    12701277       CALL getin_p('random_notrig_max',random_notrig_max)

  • LMDZ6/trunk/libf/phylmd/surface_data.F90

    r3319 r3327  
    77
    88  REAL, PARAMETER        :: calice=1.0/(5.1444e+06*0.15)
    9   REAL, PARAMETER        :: tau_gl=86400.*5.
    109  REAL, PARAMETER        :: calsno=1./(2.3867e+06*.15)
    1110 
Note: See TracChangeset for help on using the changeset viewer.