Changeset 4727 for LMDZ6/branches/LMDZ_ECRad/libf/phylmd/stdlevvar_mod.F90
- Timestamp:
- Oct 19, 2023, 4:02:57 PM (11 months ago)
- Location:
- LMDZ6/branches/LMDZ_ECRad
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/LMDZ_ECRad
- Property svn:mergeinfo changed
-
LMDZ6/branches/LMDZ_ECRad/libf/phylmd/stdlevvar_mod.F90
r4482 r4727 19 19 u1, v1, t1, q1, z1, & 20 20 ts1, qsurf, z0m, z0h, psol, pat1, & 21 t_2m, q_2m, t_10m, q_10m, u_10m, ustar )21 t_2m, q_2m, t_10m, q_10m, u_10m, ustar, s_pblh, prain, tsol) 22 22 IMPLICIT NONE 23 23 !------------------------------------------------------------------------- … … 61 61 LOGICAL, intent(in) :: zxli 62 62 REAL, dimension(klon), intent(in) :: u1, v1, t1, q1, z1, ts1 63 REAL, dimension(klon), intent(in) :: qsurf, z0m, z0h 63 REAL, dimension(klon), intent(in) :: qsurf 64 REAL, dimension(klon), intent(inout) :: z0m, z0h 64 65 REAL, dimension(klon), intent(in) :: psol, pat1 65 66 ! 66 67 REAL, dimension(klon), intent(out) :: t_2m, q_2m, ustar 67 68 REAL, dimension(klon), intent(out) :: u_10m, t_10m, q_10m 69 REAL, DIMENSION(klon), INTENT(INOUT) :: s_pblh 70 REAL, DIMENSION(klon), INTENT(IN) :: prain 71 REAL, DIMENSION(klon), INTENT(IN) :: tsol 68 72 !------------------------------------------------------------------------- 69 73 include "flux_arp.h" … … 120 124 CALL cdrag(knon, nsrf, & 121 125 & speed, t1, q1, z1, & 122 & psol, ts1, qsurf, z0m, z0h, &126 & psol, s_pblh, ts1, qsurf, z0m, z0h, & 123 127 & zri_zero, 0, & 124 & cdram, cdrah, zri1, pref )128 & cdram, cdrah, zri1, pref, prain, tsol, pat1) 125 129 126 130 ! --- special Dice: on force cdragm ( a defaut de forcer ustar) MPL 05082013 … … 178 182 & ts1, qsurf, z0m, z0h, psol, & 179 183 & ustar, testar, qstar, okri, ri1, & 180 & pref, delu, delte, delq )184 & pref, delu, delte, delq, s_pblh ,prain, tsol, pat1) 181 185 ! 182 186 DO i = 1, knon … … 280 284 & ts1, qsurf, z0m, z0h, psol, & 281 285 & ustar, testar, qstar, okri, ri1, & 282 & pref, delu, delte, delq )286 & pref, delu, delte, delq, s_pblh ,prain, tsol, pat1) 283 287 ! 284 288 DO i = 1, knon … … 357 361 INTEGER, intent(in) :: klon, knon, nsrf 358 362 LOGICAL, intent(in) :: zxli 359 REAL, dimension(klon), intent(in) :: u1, v1, t1, q1, z1, ts1 360 REAL, dimension(klon), intent(in) :: qsurf, z0m, z0h 363 REAL, dimension(klon), intent(in) :: u1, v1, t1, q1, ts1, z1 364 REAL, dimension(klon), intent(inout) :: z0m, z0h 365 REAL, dimension(klon), intent(in) :: qsurf 361 366 REAL, dimension(klon), intent(in) :: psol, pat1 362 367 ! … … 371 376 REAL, dimension(klon) :: cdmn2m, cdhn2m, fm2m, fh2m 372 377 REAL, dimension(klon) :: ri2m_new 378 REAL, DIMENSION(klon) :: s_pblh 379 REAL, DIMENSION(klon) :: prain 380 REAL, DIMENSION(klon) :: tsol 373 381 !------------------------------------------------------------------------- 374 382 include "flux_arp.h" … … 444 452 CALL cdrag(knon, nsrf, & 445 453 & speed, t1, q1, z1, & 446 & psol, ts1, qsurf, z0m, z0h, &454 & psol, s_pblh, ts1, qsurf, z0m, z0h, & 447 455 & zri_zero, 0, & 448 & cdram, cdrah, zri1, pref )456 & cdram, cdrah, zri1, pref, prain, tsol, pat1) 449 457 450 458 ! … … 468 476 & cdram, cdrah, okri, & 469 477 & ri1, 1, & 470 & pref_new, delm_new, delh_new, ri2m) 478 & pref_new, delm_new, delh_new, ri2m, & 479 & s_pblh, prain, tsol, pat1 ) 471 480 ! 472 481 DO i = 1, knon … … 535 544 & cdram, cdrah, okri, & 536 545 & ri1, 0, & 537 & pref, delm, delh, ri2m) 546 & pref, delm, delh, ri2m, & 547 & s_pblh, prain, tsol, pat1 ) 538 548 ! 539 549 DO i = 1, knon … … 614 624 & cdram, cdrah, okri, & 615 625 & ri1, 1, & 616 & pref_new, delm_new, delh_new, ri10m) 626 & pref_new, delm_new, delh_new, ri10m, & 627 & s_pblh, prain, tsol, pat1 ) 617 628 ! 618 629 DO i = 1, knon … … 671 682 & cdram, cdrah, okri, & 672 683 & ri1, 0, & 673 & pref, delm, delh, ri10m) 684 & pref, delm, delh, ri10m, & 685 & s_pblh, prain, tsol, pat1 ) 674 686 ! 675 687 DO i = 1, knon
Note: See TracChangeset
for help on using the changeset viewer.