Changeset 2896
- Timestamp:
- May 31, 2017, 12:25:08 AM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/pbl_surface_mod.F90
r2884 r2896 37 37 !$OMP THREADPRIVATE(ftsoil) 38 38 39 integer, save :: iflag_pbl_surface_t2m_bug 40 !$OMP THREADPRIVATE(iflag_pbl_surface_t2m_bug) 41 39 42 CONTAINS 40 43 ! … … 131 134 CALL abort_physic(modname,abort_message,1) 132 135 ENDIF 136 137 iflag_pbl_surface_t2m_bug=0 138 CALL getin_p('iflag_pbl_surface_t2m_bug',iflag_pbl_surface_t2m_bug) 133 139 134 140 END SUBROUTINE pbl_surface_init … … 516 522 REAL, DIMENSION(klon) :: psfce, patm 517 523 REAL, DIMENSION(klon) :: qairsol, zgeo1, speed, zri1, pref !speed, zri1, pref, added by Fuxing WANG, 04/03/2015 518 REAL, DIMENSION(klon) :: rugo1524 REAL, DIMENSION(klon) :: yz0h_oupas 519 525 REAL, DIMENSION(klon) :: yfluxsens 520 526 REAL, DIMENSION(klon) :: AcoefH, AcoefQ, BcoefH, BcoefQ … … 2483 2489 !!! 2484 2490 DO j=1, knon 2485 2486 rugo1(j) = yz0m(j)2487 2488 rugo1(j) = z0m(i,nsrf)2489 2491 ! i = ni(j) 2492 ! yz0h_oupas(j) = yz0m(j) 2493 ! IF(nsrf.EQ.is_oce) THEN 2494 ! yz0h_oupas(j) = z0m(i,nsrf) 2495 ! ENDIF 2490 2496 psfce(j)=ypaprs(j,1) 2491 2497 patm(j)=ypplay(j,1) 2492 2498 END DO 2499 2500 IF (iflag_pbl_surface_t2m_bug==1) THEN 2501 yz0h_oupas(1:knon)=yz0m(1:knon) 2502 ELSE 2503 yz0h_oupas(1:knon)=yz0h(1:knon) 2504 ENDIF 2493 2505 2494 2506 ! print*,'Dans pbl OK42A' … … 2496 2508 ! print*, tair1,yt(:,1),y_d_t(:,1) 2497 2509 2498 ! Calculate the temperature et relative humidity at 2m and the wind at 10m2510 ! Calculate the temperatureflag_pbl_surface_t2m_bugiflag_pbl_surface_t2m_bug et relative humidity at 2m and the wind at 10m 2499 2511 !!! jyg le 07/02/2012 2500 2512 IF (iflag_split .eq.0) THEN 2501 2513 CALL stdlevvar(klon, knon, nsrf, zxli, & 2502 2514 uzon, vmer, tair1, qair1, zgeo1, & 2503 tairsol, qairsol, rugo1, rugo1, psfce, patm, &2515 tairsol, qairsol, yz0m, yz0h_oupas, psfce, patm, & 2504 2516 yt2m, yq2m, yt10m, yq10m, yu10m, yustar) 2505 2517 ELSE !(iflag_split .eq.0) 2506 2518 CALL stdlevvar(klon, knon, nsrf, zxli, & 2507 2519 uzon_x, vmer_x, tair1_x, qair1_x, zgeo1_x, & 2508 tairsol_x, qairsol, rugo1, rugo1, psfce, patm, &2520 tairsol_x, qairsol, yz0m, yz0h_oupas, psfce, patm, & 2509 2521 yt2m_x, yq2m_x, yt10m_x, yq10m_x, yu10m_x, yustar_x) 2510 2522 CALL stdlevvar(klon, knon, nsrf, zxli, & 2511 2523 uzon_w, vmer_w, tair1_w, qair1_w, zgeo1_w, & 2512 tairsol_w, qairsol, rugo1, rugo1, psfce, patm, &2524 tairsol_w, qairsol, yz0m, yz0h_oupas, psfce, patm, & 2513 2525 yt2m_w, yq2m_w, yt10m_w, yq10m_w, yu10m_w, yustar_w) 2514 2526 !!!
Note: See TracChangeset
for help on using the changeset viewer.