Changeset 3324


Ignore:
Timestamp:
May 15, 2018, 5:56:55 PM (6 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/branches/IPSLCM6.0.15/libf/phylmd
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/clesphys.h

    r3048 r3324  
    5555       Real f_rugoro,z0min
    5656
     57! tau_gl : constante de rappel de la temperature a la surface de la glace
     58       REAL tau_gl
     59
    5760!IM lev_histhf  : niveau sorties 6h
    5861!IM lev_histday : niveau sorties journalieres
    … …  
    104107     &     , cdmmax,cdhmax,ksta,ksta_ter,f_ri_cd_min,pbl_lmixmin_alpha  &
    105108     &     , fmagic, pmagic                                             &
    106      &     , f_cdrag_ter,f_cdrag_oce,f_rugoro,z0min                     &
     109     &     , f_cdrag_ter,f_cdrag_oce,f_rugoro,z0min,tau_gl              &
    107110     &     , min_wind_speed,f_gust_wk,f_gust_bl,f_qsat_oce,f_z0qh_oce   &
    108111     &     , z0m_seaice,z0h_seaice                                      &

  • LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/ocean_forced_mod.F90

    r3102 r3324  
    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/branches/IPSLCM6.0.15/libf/phylmd/physiq_mod.F90

    r3318 r3324  
    12631263    IF (debut) THEN
    12641264       CALL suphel ! initialiser constantes et parametres phys.
     1265! tau_gl : constante de rappel de la temperature a la surface de la glace - en
     1266       tau_gl=5.
     1267       CALL getin_p('tau_gl', tau_gl)
     1268! tau_gl : constante de rappel de la temperature a la surface de la glace - en secondes
     1269       tau_gl=86400.*tau_gl
     1270       print*,'debut physiq_mod tau_gl=',tau_gl
    12651271       CALL getin_p('iflag_alp_wk_cond', iflag_alp_wk_cond)
    12661272       CALL getin_p('random_notrig_max',random_notrig_max)

  • LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/surface_data.F90

    r3102 r3324  
    55
    66  REAL, PARAMETER        :: calice=1.0/(5.1444e+06*0.15)
    7   REAL, PARAMETER        :: tau_gl=86400.*5.
    87  REAL, PARAMETER        :: calsno=1./(2.3867e+06*.15)
    98 
Note: See TracChangeset for help on using the changeset viewer.