9 |
c |
c |
10 |
use dimens_m |
use dimens_m |
11 |
use dimphy |
use dimphy |
12 |
use YOMCST |
use SUPHEC_M |
13 |
use yoethf |
use yoethf_m |
14 |
use fcttre |
use fcttre |
15 |
IMPLICIT none |
IMPLICIT none |
16 |
c====================================================================== |
c====================================================================== |
215 |
. dt_con, dq_con, pmflxr, pmflxs) |
. dt_con, dq_con, pmflxr, pmflxs) |
216 |
use dimens_m |
use dimens_m |
217 |
use dimphy |
use dimphy |
218 |
use YOMCST |
use SUPHEC_M |
219 |
use yoethf |
use yoethf_m |
220 |
use yoecumf |
use yoecumf |
221 |
IMPLICIT none |
IMPLICIT none |
222 |
C ------------------------------------------------------------------ |
C ------------------------------------------------------------------ |
506 |
. klab,pen_u, pde_u, pen_d, pde_d) |
. klab,pen_u, pde_u, pen_d, pde_d) |
507 |
use dimens_m |
use dimens_m |
508 |
use dimphy |
use dimphy |
509 |
use YOMCST |
use SUPHEC_M |
510 |
use yoethf |
use yoethf_m |
511 |
IMPLICIT none |
IMPLICIT none |
512 |
C---------------------------------------------------------------------- |
C---------------------------------------------------------------------- |
513 |
C THIS ROUTINE INTERPOLATES LARGE-SCALE FIELDS OF T,Q ETC. |
C THIS ROUTINE INTERPOLATES LARGE-SCALE FIELDS OF T,Q ETC. |
631 |
* ptu, pqu, plu, ldcum, kcbot, klab) |
* ptu, pqu, plu, ldcum, kcbot, klab) |
632 |
use dimens_m |
use dimens_m |
633 |
use dimphy |
use dimphy |
634 |
use YOMCST |
use SUPHEC_M |
635 |
use yoethf |
use yoethf_m |
636 |
IMPLICIT none |
IMPLICIT none |
637 |
C---------------------------------------------------------------------- |
C---------------------------------------------------------------------- |
638 |
C THIS ROUTINE CALCULATES CLOUD BASE VALUES (T AND Q) |
C THIS ROUTINE CALCULATES CLOUD BASE VALUES (T AND Q) |
716 |
. pen_u, pde_u) |
. pen_u, pde_u) |
717 |
use dimens_m |
use dimens_m |
718 |
use dimphy |
use dimphy |
719 |
use YOMCST |
use SUPHEC_M |
720 |
use yoethf |
use yoethf_m |
721 |
use yoecumf |
use yoecumf |
722 |
IMPLICIT none |
IMPLICIT none |
723 |
C---------------------------------------------------------------------- |
C---------------------------------------------------------------------- |
1020 |
. , pmflxr, pmflxs) |
. , pmflxr, pmflxs) |
1021 |
use dimens_m |
use dimens_m |
1022 |
use dimphy |
use dimphy |
1023 |
use YOMCST |
use SUPHEC_M |
1024 |
use yoethf |
use yoethf_m |
1025 |
use fcttre |
use fcttre |
1026 |
use yoecumf |
use yoecumf |
1027 |
IMPLICIT none |
IMPLICIT none |
1265 |
. , pdpmel, dt_con, dq_con) |
. , pdpmel, dt_con, dq_con) |
1266 |
use dimens_m |
use dimens_m |
1267 |
use dimphy |
use dimphy |
1268 |
use YOMCST |
use SUPHEC_M |
1269 |
use yoethf |
use yoethf_m |
1270 |
use yoecumf |
use yoecumf |
1271 |
IMPLICIT none |
IMPLICIT none |
1272 |
c---------------------------------------------------------------------- |
c---------------------------------------------------------------------- |
1335 |
. pmfd, pmfds, pmfdq, pdmfdp, kdtop, lddraf) |
. pmfd, pmfds, pmfdq, pdmfdp, kdtop, lddraf) |
1336 |
use dimens_m |
use dimens_m |
1337 |
use dimphy |
use dimphy |
1338 |
use YOMCST |
use SUPHEC_M |
1339 |
use yoethf |
use yoethf_m |
1340 |
use yoecumf |
use yoecumf |
1341 |
IMPLICIT none |
IMPLICIT none |
1342 |
C |
C |
1446 |
. lddraf, pen_d, pde_d) |
. lddraf, pen_d, pde_d) |
1447 |
use dimens_m |
use dimens_m |
1448 |
use dimphy |
use dimphy |
1449 |
use YOMCST |
use SUPHEC_M |
1450 |
use yoethf |
use yoethf_m |
1451 |
use yoecumf |
use yoecumf |
1452 |
IMPLICIT none |
IMPLICIT none |
1453 |
C |
C |
1561 |
SUBROUTINE flxadjtq(pp, pt, pq, ldflag, kcall) |
SUBROUTINE flxadjtq(pp, pt, pq, ldflag, kcall) |
1562 |
use dimens_m |
use dimens_m |
1563 |
use dimphy |
use dimphy |
1564 |
use YOMCST |
use SUPHEC_M |
1565 |
use yoethf |
use yoethf_m |
1566 |
use fcttre |
use fcttre |
1567 |
IMPLICIT none |
IMPLICIT none |
1568 |
c====================================================================== |
c====================================================================== |