50 |
USE phytrac_m, ONLY: phytrac |
USE phytrac_m, ONLY: phytrac |
51 |
USE qcheck_m, ONLY: qcheck |
USE qcheck_m, ONLY: qcheck |
52 |
use radlwsw_m, only: radlwsw |
use radlwsw_m, only: radlwsw |
53 |
|
use sugwd_m, only: sugwd |
54 |
USE suphec_m, ONLY: ra, rcpd, retv, rg, rlvtt, romega, rsigma, rtt |
USE suphec_m, ONLY: ra, rcpd, retv, rg, rlvtt, romega, rsigma, rtt |
55 |
USE temps, ONLY: annee_ref, day_ref, itau_phy |
USE temps, ONLY: annee_ref, day_ref, itau_phy |
56 |
USE yoethf_m, ONLY: r2es, rvtmp2 |
USE yoethf_m, ONLY: r2es, rvtmp2 |
777 |
|
|
778 |
IF (ok_orodr) THEN |
IF (ok_orodr) THEN |
779 |
rugoro = MAX(1e-5, zstd * zsig / 2) |
rugoro = MAX(1e-5, zstd * zsig / 2) |
780 |
CALL SUGWD(klon, llm, paprs, play) |
CALL SUGWD(paprs, play) |
781 |
else |
else |
782 |
rugoro = 0. |
rugoro = 0. |
783 |
ENDIF |
ENDIF |