/[lmdze]/trunk/libf/phylmd/conflx.f
ViewVC logotype

Diff of /trunk/libf/phylmd/conflx.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 37 by guez, Mon Jul 21 16:05:07 2008 UTC revision 38 by guez, Thu Jan 6 17:52:19 2011 UTC
# Line 9  Line 9 
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======================================================================
# Line 215  c     *                   ldcum, ktype, Line 215  c     *                   ldcum, ktype,
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     ------------------------------------------------------------------
# Line 506  c Line 506  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.
# Line 631  C Line 631  C
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)
# Line 716  c Line 716  c
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----------------------------------------------------------------------
# Line 1020  C Line 1020  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
# Line 1265  c Line 1265  c
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----------------------------------------------------------------------
# Line 1335  C Line 1335  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
# Line 1446  C Line 1446  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
# Line 1561  c Line 1561  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======================================================================
Legend:
Removed from v.37  
changed lines
  Added in v.38
  ViewVC Help
Powered by ViewVC 1.1.21