Changeset 3823 for LMDZ6/branches/IPSL-CM6A-MR/libf/phylmd/physiq_mod.F90
- Timestamp:
- Feb 5, 2021, 10:00:13 AM (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/IPSL-CM6A-MR/libf/phylmd/physiq_mod.F90
r3666 r3823 119 119 cdragm, cdragh, & 120 120 zustar, zu10m, zv10m, rh2m, qsat2m, & 121 zq2m, zt2m, weak_inversion, & 122 zq2m_cor,zt2m_cor,zu10m_cor,zv10m_cor, & ! pour corriger d'un bug 123 zrh2m_cor,zqsat2m_cor, & 121 zq2m, zt2m, zn2mout, weak_inversion, & 124 122 zt2m_min_mon, zt2m_max_mon, & ! pour calcul_divers.h 125 123 t2m_min_mon, t2m_max_mon, & ! pour calcul_divers.h … … 603 601 !$OMP THREADPRIVATE(iflag_alp_wk_cond) 604 602 605 INTEGER, SAVE :: iflag_bug_t2m_ipslcm61=1 !606 !$OMP THREADPRIVATE(iflag_bug_t2m_ipslcm61)607 INTEGER, SAVE :: iflag_bug_t2m_stab_ipslcm61=-1 !608 !$OMP THREADPRIVATE(iflag_bug_t2m_stab_ipslcm61)609 610 603 REAL t_w(klon,klev),q_w(klon,klev) ! temperature and moisture profiles in the wake region 611 604 REAL t_x(klon,klev),q_x(klon,klev) ! temperature and moisture profiles in the off-wake region … … 1314 1307 tau_gl=86400.*tau_gl 1315 1308 WRITE(lunout,*) 'debut physiq_mod tau_gl=',tau_gl 1316 1317 iflag_bug_t2m_ipslcm61 = 11318 CALL getin_p('iflag_bug_t2m_ipslcm61', iflag_bug_t2m_ipslcm61)1319 iflag_bug_t2m_stab_ipslcm61 = -11320 CALL getin_p('iflag_bug_t2m_stab_ipslcm61', iflag_bug_t2m_stab_ipslcm61)1321 1309 1322 1310 CALL getin_p('iflag_alp_wk_cond', iflag_alp_wk_cond) … … 2529 2517 !albedo SB <<< 2530 2518 albsol3_lic,runoff, snowhgt, qsnow, to_ice, sissnow, & 2531 zxtsol, zxfluxlat, zt2m, qsat2m, &2519 zxtsol, zxfluxlat, zt2m, qsat2m, zn2mout, & 2532 2520 d_t_vdf, d_q_vdf, d_u_vdf, d_v_vdf, d_t_diss, & 2533 2521 !nrlmd< … … 2576 2564 !>jyg 2577 2565 ENDIF 2578 2579 !add limitation for t,q at and wind at 10m2580 if ( iflag_bug_t2m_ipslcm61 == 0 ) THEN2581 CALL borne_var_surf( klon,klev,nbsrf, &2582 iflag_bug_t2m_stab_ipslcm61, &2583 t_seri(:,1),q_seri(:,1),u_seri(:,1),v_seri(:,1), &2584 ftsol,zxqsurf,pctsrf,paprs, &2585 t2m, q2m, u10m, v10m, &2586 zt2m_cor, zq2m_cor, zu10m_cor, zv10m_cor, &2587 zrh2m_cor, zqsat2m_cor)2588 ELSE2589 zt2m_cor(:)=zt2m(:)2590 zq2m_cor(:)=zq2m(:)2591 zu10m_cor(:)=zu10m(:)2592 zv10m_cor(:)=zv10m(:)2593 zqsat2m_cor=999.9992594 ENDIF2595 2566 2596 2567 !---------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.