Changeset 155


Ignore:
Timestamp:
Nov 10, 2000, 11:43:55 AM (24 years ago)
Author:
lmdzadmin
Message:

Passage en implicit none et menage
LF

Location:
LMDZ.3.3/branches/rel-LF/libf/phylmd
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ.3.3/branches/rel-LF/libf/phylmd/YOEGWD.h

    r2 r155  
    33C     -----------------------------------------------------------------
    44C
     5      integer NKTOPG,NSTRA
     6      real GFRCRIT,GKWAKE,GRCRIT,GVCRIT,GKDRAG,GKLIFT
     7      real GHMAX,GRAHILO,GSIGCR,GSSEC,GTSEC,GVSEC
    58      COMMON/YOEGWD/ GFRCRIT,GKWAKE,GRCRIT,GVCRIT,GKDRAG,GKLIFT
    69     *        ,GHMAX,GRAHILO,GSIGCR,NKTOPG,NSTRA,GSSEC,GTSEC,GVSEC

  • LMDZ.3.3/branches/rel-LF/libf/phylmd/orografi.F

    r2 r155  
    11      SUBROUTINE drag_noro (nlon,nlev,dtime,paprs,pplay,
    22     e                   pmea,pstd, psig, pgam, pthe,ppic,pval,
    3      e                   kgwd,kgwdim,kdx,ktest,
     3     e                   kgwd,kdx,ktest,
    44     e                   t, u, v,
    55     s                   pulow, pvlow, pustr, pvstr,
    … …  
    3939      REAL d_t(nlon,nlev), d_u(nlon,nlev), d_v(nlon,nlev)
    4040c
    41       INTEGER i, k, kgwd, kgwdim, kdx(nlon), ktest(nlon)
     41      INTEGER i, k, kgwd, kdx(nlon), ktest(nlon)
    4242c
    4343c Variables locales:
    … …  
    9696c appeler la routine principale
    9797c
    98       CALL orodrag(klon,klev,kgwd,kgwdim,kdx,ktest,
     98      CALL orodrag(klon,klev,kgwd,kdx,ktest,
    9999     .            dtime,
    100100     .            papmh, papmf, zgeom,
    … …  
    119119      END
    120120      SUBROUTINE orodrag( nlon,nlev
    121      i                 , kgwd, kgwdim, kdx, ktest
     121     i                 , kgwd, kdx, ktest
    122122     r                 , ptsphy
    123123     r                 , paphm1,papm1,pgeom1,ptm1,pum1,pvm1
    … …  
    126126     r                 , pulow,pvlow
    127127     r                 , pvom,pvol,pte )
     128
     129      implicit none
     130
    128131c
    129132c
    … …  
    152155c        --------------------
    153156c
    154       implicit logical (l)
     157c      implicit logical (l)
    155158c
    156159c     method.
    … …  
    183186c
    184187c
     188      integer nlon, nlev, klevm1
     189      integer kgwd, jl, ilevp1, jk, ji
     190      real zdelp, ztemp, zforc, ztend
     191      real rover, zb, zc, zconb, zabsv
     192      real zzd1, ratio, zbet, zust,zvst, zdis
    185193      real  pte(nlon,nlev),
    186194     *      pvol(nlon,nlev),
    … …  
    223231     *       zdedt(klon),
    224232     *       zvidis(klon),
    225      *       ztfr(klon),
    226233     *       znu(klon),
    227234     *       zd1(klon),
    228235     *       zd2(klon),
    229236     *       zdmod(klon)
     237      real ztmst, ptsphy, zrtmst
    230238c
    231239c------------------------------------------------------------------
    … …  
    272280c
    273281      call orosetup
    274      *     ( nlon, nlev , ktest
    275      *     , ikcrit, ikcrith, icrit, isect, ikhlim, ikenvh,iknu,iknu2
     282     *     ( nlon, ktest
     283     *     , ikcrit, ikcrith, icrit, ikenvh,iknu,iknu2
    276284     *     , paphm1, papm1 , pum1   , pvm1 , ptm1 , pgeom1, pstd
    277285     *     , zrho  , zri   , zstab  , ztau , zvph , zpsi, zzdep
    … …  
    292300      call gwstress
    293301     *    ( nlon  , nlev
    294      *    , ikcrit, isect, ikhlim, ktest, ikcrith, icrit, ikenvh, iknu
    295      *    , zrho  , zstab, zvph  , pstd,  psig, pmea, ppic, pval
    296      *    , ztfr   , ztau
    297      *    , pgeom1,pgamma,zd1,zd2,zdmod,znu)
     302     *    , ktest , icrit, ikenvh, iknu
     303     *    , zrho  , zstab, zvph  , pstd,  psig, pmea, ppic
     304     *    , ztau
     305     *    , pgeom1,zdmod)
    298306c
    299307c
    … …  
    306314      call gwprofil
    307315     *       (  nlon , nlev
    308      *       , kgwd   , kdx  , ktest
    309      *       , ikcrit, ikcrith, icrit  , ikenvh, iknu
    310      *       ,iknu2 , paphm1, zrho   , zstab , ztfr   , zvph
    311      *       , zri   , ztau   , ztauf
    312 c
    313      *       , zdmod , znu    , psig  , pgamma , pstd , ppic , pval)
     316     *       , kgwd   , kdx
     317     *       , ikcrith, icrit
     318     *       , paphm1, zrho   , zstab ,  zvph
     319     *       , zri   , ztau   
     320     *       , zdmod , psig  , pstd)
    314321c
    315322c
    … …  
    401408      end
    402409      SUBROUTINE orosetup
    403      *         ( nlon   , nlev  , ktest
    404      *         , kkcrit, kkcrith, kcrit, ksect , kkhlim
     410     *         ( nlon   , ktest
     411     *         , kkcrit, kkcrith, kcrit
    405412     *         , kkenvh, kknu  , kknu2
    406413     *         , paphm1, papm1 , pum1   , pvm1 , ptm1  , pgeom1, pstd
    … …  
    448455c
    449456c-----------------------------------------------------------------------
    450       implicit logical (l)
     457      implicit none
    451458c
    452459
    … …  
    461468c              ---------
    462469c
    463       integer kkcrit(nlon),kkcrith(nlon),kcrit(nlon),ksect(nlon),
    464      *        kkhlim(nlon),ktest(nlon),kkenvh(nlon)
     470      integer nlon
     471      integer jl, jk
     472      real zdelp
     473      real  zb, zc
     474
     475      integer kkcrit(nlon),kkcrith(nlon),kcrit(nlon),
     476     *        ktest(nlon),kkenvh(nlon)
    465477
    466478c
    … …  
    480492c
    481493c
     494      integer ilevm1, ilevm2, ilevh
     495      real zcons1, zcons2,zcons3, zhgeo
     496      real zu, zphi, zvt1,zvt2, zst, zvar, zdwind, zwind
     497      real zstabm, zstabp, zrhom,  zrhop, alpha
     498      real zggeenv, zggeom1,zgvar
     499      logical lo
    482500      logical ll1(klon,klev+1)
    483501      integer kknu(klon),kknu2(klon),kknub(klon),kknul(klon),
    … …  
    486504      real zhcrit(klon,klev),zvpf(klon,klev),
    487505     *     zdp(klon,klev)
    488       real znorm(klon),zpsi(klon),zb(klon),zc(klon),
     506      real znorm(klon),zb(klon),zc(klon),
    489507     *      zulow(klon),zvlow(klon),znup(klon),znum(klon)
    490508c
    … …  
    862880      SUBROUTINE gwstress
    863881     *         (  nlon  , nlev
    864      *         , kkcrit, ksect, kkhlim, ktest, kkcrith, kcrit, kkenvh
     882     *         , ktest, kcrit, kkenvh
    865883     *         , kknu
    866884     *         , prho  , pstab , pvph  , pstd, psig
    867      *         , pmea , ppic , pval  , ptfr , ptau 
    868      *         , pgeom1 , pgamma , pd1  , pd2   , pdmod , pnu )
     885     *         , pmea , ppic , ptau 
     886     *         , pgeom1 , pdmod )
    869887c
    870888c**** *gwstress*
    … …  
    906924c
    907925c-----------------------------------------------------------------------
    908       implicit logical (l)
     926      implicit none
    909927#include "dimensions.h"
    910928#include "dimphy.h"
    … …  
    917935c              ---------
    918936c
    919       integer kkcrit(nlon),kkcrith(nlon),kcrit(nlon),ksect(nlon),
    920      *        kkhlim(nlon),ktest(nlon),kkenvh(nlon),kknu(nlon)
     937      integer nlon, nlev
     938      integer kcrit(nlon),
     939     *        ktest(nlon),kkenvh(nlon),kknu(nlon)
    921940c
    922941      real prho(nlon,nlev+1),pstab(nlon,nlev+1),ptau(nlon,nlev+1),
    923      *     pvph(nlon,nlev+1),ptfr(nlon),
     942     *     pvph(nlon,nlev+1),
    924943     *     pgeom1(nlon,nlev),pstd(nlon)
    925944c
    926       real pd1(nlon),pd2(nlon),pnu(nlon),psig(nlon),pgamma(nlon)
    927       real pmea(nlon),ppic(nlon),pval(nlon)
     945      real psig(nlon)
     946      real pmea(nlon),ppic(nlon)
    928947      real pdmod(nlon)
    929948c
    … …  
    932951c*       0.2   local arrays
    933952c              ------------
     953      integer jl
     954      real zblock, zvar, zeff
     955      logical lo
    934956c
    935957c-----------------------------------------------------------------------
    … …  
    9851007      SUBROUTINE GWPROFIL
    9861008     *         ( NLON, NLEV
    987      *         , kgwd ,kdx  , ktest
    988      *         , KKCRIT, KKCRITH, KCRIT ,  kkenvh, kknu,kknu2
    989      *         , PAPHM1, PRHO   , PSTAB , PTFR , PVPH , PRI , PTAU
    990      *         , ptauf ,pdmod   , pnu   , psig ,pgamma, pvar, ppic,pval)
     1009     *         , kgwd, kdx
     1010     *         , KKCRITH, KCRIT
     1011     *         , PAPHM1, PRHO   , PSTAB , PVPH , PRI , PTAU
     1012     *         , pdmod   , psig , pvar)
    9911013
    9921014C**** *GWPROFIL*
    … …  
    10361058C     PASSAGE OF THE NEW GWDRAG TO I.F.S. (F. LOTT, 22/11/93)
    10371059C-----------------------------------------------------------------------
    1038       IMPLICIT LOGICAL (L)
     1060      implicit none
    10391061C
    10401062
    … …  
    10511073C              ---------
    10521074C
    1053       INTEGER KKCRIT(NLON),KKCRITH(NLON),KCRIT(NLON)
    1054      *       ,kdx(nlon),ktest(NLON)
    1055      *       ,kkenvh(NLON),kknu(NLON),kknu2(NLON)
     1075      integer nlon,nlev
     1076      INTEGER KKCRITH(NLON),KCRIT(NLON)
     1077     *       ,kdx(nlon)
    10561078C
    10571079      REAL PAPHM1(NLON,NLEV+1), PSTAB(NLON,NLEV+1),
    10581080     *     PRHO  (NLON,NLEV+1), PVPH (NLON,NLEV+1),
    1059      *     PRI   (NLON,NLEV+1), PTFR (NLON), PTAU(NLON,NLEV+1),
    1060      *     ptauf (NLON,nlev+1)
     1081     *     PRI   (NLON,NLEV+1), PTAU(NLON,NLEV+1)
    10611082     
    1062       REAL pdmod (NLON) , pnu (NLON) , psig(NLON),
    1063      *     pgamma(NLON) , pvar(NLON) , ppic(NLON), pval(NLON)
     1083      REAL pdmod (NLON) , psig(NLON),
     1084     *     pvar(NLON)
    10641085     
    10651086C-----------------------------------------------------------------------
    … …  
    10681089C              ------------
    10691090C
     1091      integer ilevh, ji, kgwd, jl, jk
     1092      real zsqr, zalfa, zriw, zdel, zb, zalpha,zdz2n
     1093      real zdelp, zdelpt
    10701094      REAL ZDZ2 (KLON,KLEV) , ZNORM(KLON) , zoro(KLON)
    10711095      REAL ZTAU (KLON,KLEV+1)
    … …  
    12211245      END
    12221246      SUBROUTINE lift_noro (nlon,nlev,dtime,paprs,pplay,     
    1223      e                   plat,pmea,pstd, psig, pgam, pthe, ppic,pval,
    1224      e                   kgwd,kgwdim,kdx,ktest,
     1247     e                   plat,pmea,pstd, ppic,
     1248     e                   ktest,
    12251249     e                   t, u, v,
    12261250     s                   pulow, pvlow, pustr, pvstr,
    … …  
    12551279      REAL pplay(klon,klev)
    12561280      REAL plat(nlon),pmea(nlon)
    1257       REAL pstd(nlon),psig(nlon),pgam(nlon),pthe(nlon)
    1258       REAL ppic(nlon),pval(nlon)
     1281      REAL pstd(nlon)
     1282      REAL ppic(nlon)
    12591283      REAL pulow(nlon),pvlow(nlon),pustr(nlon),pvstr(nlon)
    12601284      REAL t(nlon,nlev), u(nlon,nlev), v(nlon,nlev)
    12611285      REAL d_t(nlon,nlev), d_u(nlon,nlev), d_v(nlon,nlev)
    12621286c
    1263       INTEGER i, k, kgwd, kgwdim, kdx(nlon), ktest(nlon)
     1287      INTEGER i, k, ktest(nlon)
    12641288c
    12651289c Variables locales:
    … …  
    13181342c appeler la routine principale
    13191343c
    1320       CALL OROLIFT(klon,klev,kgwd,kgwdim,kdx,ktest,
     1344      CALL OROLIFT(klon,klev,ktest,
    13211345     .            dtime,
    1322      .            papmh, papmf, zgeom,
     1346     .            papmh, zgeom,
    13231347     .            pt, pu, pv,
    1324      .            plat,pmea, pstd, psig, pgam, pthe, ppic,pval,
     1348     .            plat,pmea, pstd, ppic,
    13251349     .            pulow,pvlow,
    13261350     .            pdudt,pdvdt,pdtdt)
    … …  
    13411365      END
    13421366      SUBROUTINE OROLIFT( NLON,NLEV
    1343      I                 , KGWD, KGWDIM, KDX, KTEST
     1367     I                 , KTEST
    13441368     R                 , PTSPHY
    1345      R                 , PAPHM1,PAPM1,PGEOM1,PTM1,PUM1,PVM1
     1369     R                 , PAPHM1,PGEOM1,PTM1,PUM1,PVM1
    13461370     R                 , PLAT
    1347      R                 , PMEA, PVAROR, PSIG, PGAMMA, PTHETA,ppic,pval
     1371     R                 , PMEA, PVAROR, ppic
    13481372C OUTPUTS
    13491373     R                 , PULOW,PVLOW
    … …  
    13651389C     F.LOTT  LMD 22/11/95
    13661390C
    1367       IMPLICIT LOGICAL (L)
     1391      implicit none
    13681392C
    13691393C
    … …  
    13781402C
    13791403C
     1404      integer nlon, nlev
    13801405      REAL  PTE(NLON,NLEV),
    13811406     *      PVOL(NLON,NLEV),
    … …  
    13871412     *      PTM1(NLON,NLEV),
    13881413     *      PLAT(NLON),PMEA(NLON),
    1389      *      PVAROR(NLON),PSIG(NLON),PGAMMA(NLON),
    1390      *      PTHETA(NLON),ppic(NLON),pval(NLON),
     1414     *      PVAROR(NLON),
     1415     *      ppic(NLON),
    13911416     *      PGEOM1(NLON,NLEV),
    1392      *      PAPM1(NLON,NLEV),
    13931417     *      PAPHM1(NLON,NLEV+1)
    13941418C
    1395       INTEGER  KDX(NLON),KTEST(NLON)
     1419      INTEGER  KTEST(NLON)
     1420      real ptsphy
    13961421C-----------------------------------------------------------------------
    13971422C
    13981423C*       0.2   LOCAL ARRAYS
    13991424C              ------------
    1400       INTEGER  ISECT(KLON),
    1401      *         ICRIT(KLON),
    1402      *         IKCRITH(KLON),
    1403      *         IKenvh(klon),
     1425      logical lifthigh, ll1
     1426      integer klevm1, jl, ilevh, jk
     1427      real zcons1, ztmst, zrtmst,zpi, zhgeo
     1428      real zdelp, zslow, zsqua, zscav, zbet
     1429      INTEGER 
    14041430     *         IKNUB(klon),
    1405      *         IKNUL(klon),
    1406      *         IKCRIT(KLON),
    1407      *         IKHLIM(KLON)
     1431     *         IKNUL(klon)
    14081432      LOGICAL LL1(KLON,KLEV+1)
    14091433C
    14101434      REAL   ZTAU(KLON,KLEV+1),
    14111435     *       ZTAV(KLON,KLEV+1),
    1412      *       ZSTAB(KLON,KLEV+1),
    1413      *       ZVPH(KLON,KLEV+1),
    1414      *       ZRHO(KLON,KLEV+1),
    1415      *       ZRI(KLON,KLEV+1),
    1416      *       ZpsI(KLON,KLEV+1),
    1417      *       Zzdep(KLON,KLEV)
     1436     *       ZRHO(KLON,KLEV+1)
    14181437      REAL   ZDUDT(KLON),
    1419      *       ZDVDT(KLON),
    1420      *       ZDTDT(KLON),
    1421      *       ZDEDT(KLON),
    1422      *       ZVIDIS(KLON),
    1423      *       ZTFR(KLON),
    1424      *       Znu(KLON),
    1425      *       Zd1(KLON),
    1426      *       Zd2(KLON),
    1427      *       Zdmod(KLON)
     1438     *       ZDVDT(KLON)
    14281439      REAL ZHCRIT(KLON,KLEV)
    14291440C-----------------------------------------------------------------------
    … …  
    16801691C        ORIGINAL : 90-01-01
    16811692C     ------------------------------------------------------------------
    1682       IMPLICIT LOGICAL(L)
     1693      implicit none
    16831694C
    16841695C     -----------------------------------------------------------------
    … …  
    16861697C      ----------------------------------------------------------------
    16871698C
    1688       integer nlon,nlev
     1699      integer nlon,nlev, jk
    16891700      REAL paprs(nlon,nlev+1)
    16901701      REAL pplay(nlon,nlev)
     1702      real zpr,zstra,zsigt,zpm1r
    16911703C
    16921704C*       1.    SET THE VALUES OF THE PARAMETERS
    … …  
    17241736C
    17251737      GKDRAG=0.2
    1726       GRAHILO=1   
     1738      GRAHILO=1.   
    17271739      GRCRIT=0.01
    17281740      GFRCRIT=1.0
Note: See TracChangeset for help on using the changeset viewer.