Ignore:
Timestamp:
Sep 14, 2022, 2:53:51 PM (2 years ago)
Author:
evignon
Message:

controle des z0 sur landice dans les .def et nettoyage surf_landice_mod
pour Valentin

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

Legend:

Unmodified
Added
Removed
  • LMDZ6/trunk/libf/phylmd/clesphys.h

    r4089 r4245  
    5454       REAL min_wind_speed,f_gust_wk,f_gust_bl,f_qsat_oce,f_z0qh_oce
    5555       REAL z0m_seaice,z0h_seaice
     56       REAL z0m_landice, z0h_landice
    5657       INTEGER iflag_gusts,iflag_z0_oce
    5758
     
    113114     &     , f_cdrag_ter,f_cdrag_oce,f_rugoro,z0min,tau_gl              &
    114115     &     , min_wind_speed,f_gust_wk,f_gust_bl,f_qsat_oce,f_z0qh_oce   &
    115      &     , z0m_seaice,z0h_seaice                                      &
     116     &     , z0m_seaice,z0h_seaice,z0m_landice,z0h_landice              &
    116117     &     , freq_outNMC, freq_calNMC                                   &
    117118     &     , lonmin_ins, lonmax_ins, latmin_ins, latmax_ins             &
  • LMDZ6/trunk/libf/phylmd/conf_phys_m.F90

    r4114 r4245  
    133133    REAL, SAVE          :: f_rugoro_omp   , z0min_omp
    134134    REAL, SAVE          :: z0m_seaice_omp,z0h_seaice_omp
     135    REAL, SAVE          :: z0m_landice_omp,z0h_landice_omp
    135136    REAL, SAVE          :: min_wind_speed_omp,f_gust_wk_omp,f_gust_bl_omp,f_qsat_oce_omp, f_z0qh_oce_omp
    136137    INTEGER, SAVE       :: iflag_gusts_omp,iflag_z0_oce_omp
     
    21232124    z0m_seaice_omp = 0.002 ; CALL getin('z0m_seaice',z0m_seaice_omp)
    21242125    z0h_seaice_omp = 0.002 ; CALL getin('z0h_seaice',z0h_seaice_omp)
     2126
     2127
     2128    z0m_landice_omp = 0.001 ; CALL getin('z0m_landice',z0m_landice_omp)
     2129    z0h_landice_omp = 0.001 ; CALL getin('z0h_landice',z0h_landice_omp)
    21252130
    21262131    f_rugoro_omp = 0.
     
    26662671    z0m_seaice=z0m_seaice_omp
    26672672    z0h_seaice=z0h_seaice_omp
     2673    z0m_landice=z0m_landice_omp
     2674    z0h_landice=z0h_landice_omp
    26682675
    26692676    f_rugoro=f_rugoro_omp
  • LMDZ6/trunk/libf/phylmd/surf_landice_mod.F90

    r3974 r4245  
    156156           PRINT*, 'alb_nir_sno_lic',alb_nir_sno_lic
    157157 
    158 !  z0m=1.e-3
    159 !  z0h = z0m
    160158  firstcall=.false.
    161159  ENDIF
     
    351349!
    352350!****************************************************************************************
    353     z0m=1.e-3
    354     z0h = z0m
    355     z0m = SQRT(z0m**2+rugoro**2)
     351    z0m = z0m_landice
     352    z0h = z0h_landice
     353    !z0m = SQRT(z0m**2+rugoro**2)
    356354
    357355
Note: See TracChangeset for help on using the changeset viewer.