Changeset 3817 for LMDZ6/trunk/libf/phylmd/physiq_mod.F90
- Timestamp:
- Feb 3, 2021, 8:58:55 PM (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/physiq_mod.F90
r3792 r3817 197 197 cdragm, cdragh, & 198 198 zustar, zu10m, zv10m, rh2m, qsat2m, & 199 zq2m, zt2m, weak_inversion, & 200 zq2m_cor,zt2m_cor,zu10m_cor,zv10m_cor, & ! pour corriger d'un bug 201 zrh2m_cor,zqsat2m_cor, & 199 zq2m, zt2m, zn2mout, weak_inversion, & 202 200 zt2m_min_mon, zt2m_max_mon, & ! pour calcul_divers.h 203 201 t2m_min_mon, t2m_max_mon, & ! pour calcul_divers.h … … 617 615 !$OMP THREADPRIVATE(iflag_alp_wk_cond) 618 616 619 INTEGER, SAVE :: iflag_bug_t2m_ipslcm61=1 !620 !$OMP THREADPRIVATE(iflag_bug_t2m_ipslcm61)621 INTEGER, SAVE :: iflag_bug_t2m_stab_ipslcm61=-1 !622 !$OMP THREADPRIVATE(iflag_bug_t2m_stab_ipslcm61)623 624 617 REAL t_w(klon,klev),q_w(klon,klev) ! temperature and moisture profiles in the wake region 625 618 REAL t_x(klon,klev),q_x(klon,klev) ! temperature and moisture profiles in the off-wake region … … 1328 1321 tau_gl=86400.*tau_gl 1329 1322 WRITE(lunout,*) 'debut physiq_mod tau_gl=',tau_gl 1330 1331 iflag_bug_t2m_ipslcm61 = 11332 CALL getin_p('iflag_bug_t2m_ipslcm61', iflag_bug_t2m_ipslcm61)1333 iflag_bug_t2m_stab_ipslcm61 = -11334 CALL getin_p('iflag_bug_t2m_stab_ipslcm61', iflag_bug_t2m_stab_ipslcm61)1335 1323 1336 1324 CALL getin_p('iflag_alp_wk_cond', iflag_alp_wk_cond) … … 2563 2551 !albedo SB <<< 2564 2552 albsol3_lic,runoff, snowhgt, qsnow, to_ice, sissnow, & 2565 zxtsol, zxfluxlat, zt2m, qsat2m, &2553 zxtsol, zxfluxlat, zt2m, qsat2m, zn2mout, & 2566 2554 d_t_vdf, d_q_vdf, d_u_vdf, d_v_vdf, d_t_diss, & 2567 2555 !nrlmd< … … 2610 2598 !>jyg 2611 2599 ENDIF 2612 2613 !add limitation for t,q at and wind at 10m2614 if ( iflag_bug_t2m_ipslcm61 == 0 ) THEN2615 CALL borne_var_surf( klon,klev,nbsrf, &2616 iflag_bug_t2m_stab_ipslcm61, &2617 t_seri(:,1),q_seri(:,1),u_seri(:,1),v_seri(:,1), &2618 ftsol,zxqsurf,pctsrf,paprs, &2619 t2m, q2m, u10m, v10m, &2620 zt2m_cor, zq2m_cor, zu10m_cor, zv10m_cor, &2621 zrh2m_cor, zqsat2m_cor)2622 ELSE2623 zt2m_cor(:)=zt2m(:)2624 zq2m_cor(:)=zq2m(:)2625 zu10m_cor(:)=zu10m(:)2626 zv10m_cor(:)=zv10m(:)2627 zqsat2m_cor=999.9992628 ENDIF2629 2600 2630 2601 !---------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.