/[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 10 by guez, Fri Apr 18 14:45:53 2008 UTC revision 12 by guez, Mon Jul 21 16:05:07 2008 UTC
# Line 22  c         Olivier Boucher et Alexandre A Line 22  c         Olivier Boucher et Alexandre A
22  c         et lessivage des traceurs passifs.  c         et lessivage des traceurs passifs.
23  c======================================================================  c======================================================================
24  c Entree:  c Entree:
25        REAL dtime            ! pas d'integration (s)        REAL, intent(in):: dtime            ! pas d'integration (s)
26        REAL, intent(in):: pres_h(klon,klev+1) ! pression half-level (Pa)        REAL, intent(in):: pres_h(klon,klev+1) ! pression half-level (Pa)
27        REAL, intent(in):: pres_f(klon,klev)! pression full-level (Pa)        REAL, intent(in):: pres_f(klon,klev)! pression full-level (Pa)
28        REAL t(klon,klev)     ! temperature (K)        REAL t(klon,klev)     ! temperature (K)
# Line 249  c Line 249  c
249        LOGICAL  llo1        LOGICAL  llo1
250        REAL dt_con(klon,klev), dq_con(klon,klev)        REAL dt_con(klon,klev), dq_con(klon,klev)
251        REAL zmfmax, zdh        REAL zmfmax, zdh
252        REAL pdtime, zqumqe, zdqmin, zalvdcp, zhsat, zzz        REAL, intent(in):: pdtime
253          real zqumqe, zdqmin, zalvdcp, zhsat, zzz
254        REAL zhhat, zpbmpt, zgam, zeps, zfac        REAL zhhat, zpbmpt, zgam, zeps, zfac
255        INTEGER i, k, ikb, itopm2, kcum        INTEGER i, k, ikb, itopm2, kcum
256  c  c
# Line 492  c Line 493  c
493  c----------------------------------------------------------------------  c----------------------------------------------------------------------
494  c calculer les tendances pour T et Q  c calculer les tendances pour T et Q
495  c----------------------------------------------------------------------  c----------------------------------------------------------------------
496        CALL flxdtdq(pdtime, itopm2, paph, ldcum, pten,        CALL flxdtdq(itopm2, paph, ldcum, pten,
497       e     zmfus, zmfds, zmfuq, zmfdq, zmful, zdmfup, zdmfdp, zdpmel,       e     zmfus, zmfds, zmfuq, zmfdq, zmful, zdmfup, zdmfdp, zdpmel,
498       s     dt_con,dq_con)       s     dt_con,dq_con)
499  c  c
# Line 724  C THIS ROUTINE DOES THE CALCULATIONS FOR Line 725  C THIS ROUTINE DOES THE CALCULATIONS FOR
725  C FOR CUMULUS PARAMETERIZATION  C FOR CUMULUS PARAMETERIZATION
726  C----------------------------------------------------------------------  C----------------------------------------------------------------------
727  C  C
728        REAL pdtime        REAL, intent(in):: pdtime
729        REAL pten(klon,klev), ptenh(klon,klev)        REAL pten(klon,klev), ptenh(klon,klev)
730        REAL pqen(klon,klev), pqenh(klon,klev), pqsen(klon,klev)        REAL pqen(klon,klev), pqenh(klon,klev), pqsen(klon,klev)
731        REAL pgeo(klon,klev), pgeoh(klon,klev)        REAL pgeo(klon,klev), pgeoh(klon,klev)
# Line 1053  cjq 14/11/00 to fix the problem with the Line 1054  cjq 14/11/00 to fix the problem with the
1054        LOGICAL  ldland(klon), ldcum(klon)        LOGICAL  ldland(klon), ldcum(klon)
1055        INTEGER k, kp, i        INTEGER k, kp, i
1056        REAL zcons1, zcons2, zcucov, ztmelp2        REAL zcons1, zcons2, zcucov, ztmelp2
1057        REAL pdtime, zdp, zzp, zfac, zsnmlt, zrfl, zrnew        REAL, intent(in):: pdtime
1058          real zdp, zzp, zfac, zsnmlt, zrfl, zrnew
1059        REAL zrmin, zrfln, zdrfl        REAL zrmin, zrfln, zdrfl
1060        REAL zpds, zpdr, zdenom        REAL zpds, zpdr, zdenom
1061        INTEGER ktopm2, itop, ikb        INTEGER ktopm2, itop, ikb
# Line 1258  c Line 1260  c
1260  c  c
1261        RETURN        RETURN
1262        END        END
1263        SUBROUTINE flxdtdq(pdtime, ktopm2, paph, ldcum, pten        SUBROUTINE flxdtdq(ktopm2, paph, ldcum, pten
1264       .  ,  pmfus, pmfds, pmfuq, pmfdq, pmful, pdmfup, pdmfdp       .  ,  pmfus, pmfds, pmfuq, pmfdq, pmful, pdmfup, pdmfdp
1265       .  ,  pdpmel, dt_con, dq_con)       .  ,  pdpmel, dt_con, dq_con)
1266        use dimens_m        use dimens_m
# Line 1283  C Line 1285  C
1285        REAL dt_con(klon,klev), dq_con(klon,klev)        REAL dt_con(klon,klev), dq_con(klon,klev)
1286  c  c
1287        INTEGER ktopm2        INTEGER ktopm2
       REAL pdtime  
1288  c  c
1289        INTEGER i, k        INTEGER i, k
1290        REAL zalv, zdtdt, zdqdt        REAL zalv, zdtdt, zdqdt
Legend:
Removed from v.10  
changed lines
  Added in v.12
  ViewVC Help
Powered by ViewVC 1.1.21