Ignore:
Timestamp:
May 10, 2011, 3:07:35 PM (13 years ago)
Author:
jghattas
Message:
  • Errors in argument list not corresponding between CALL and SUBROUTINE in some routines. These errors were found with compile option -qextchk at vargas.
  • Removed option -qextchk from debug compile options at vargas. This option is not usable with mpi codes.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/thermcell_old.F

    r1403 r1517  
    4141c   ----------
    4242
    43       INTEGER ngrid,nlay,w2di,tho
     43      INTEGER ngrid,nlay,w2di
     44      REAL tho
    4445      real ptimestep,l_mix,r_aspect
    4546      REAL pt(ngrid,nlay),pdtadj(ngrid,nlay)
    … …  
    339340            if(w2di.eq.2) then
    340341               entr(ig,k)=entr(ig,k)+
    341      s         ptimestep*(zzz-entr(ig,k))/REAL(tho)
     342     s         ptimestep*(zzz-entr(ig,k))/tho
    342343            else
    343344               entr(ig,k)=zzz
    … …  
    590591
    591592      if (w2di.eq.1) then
    592          fm0=fm0+ptimestep*(fm-fm0)/REAL(tho)
    593          entr0=entr0+ptimestep*(entr-entr0)/REAL(tho)
     593         fm0=fm0+ptimestep*(fm-fm0)/tho
     594         entr0=entr0+ptimestep*(entr-entr0)/tho
    594595      else
    595596         fm0=fm
    … …  
    846847c   ----------
    847848
    848       INTEGER ngrid,nlay,w2di,tho
     849      INTEGER ngrid,nlay,w2di
     850      REAL tho
    849851      real ptimestep,l_mix,r_aspect
    850852      REAL pt(ngrid,nlay),pdtadj(ngrid,nlay)
    … …  
    22692271
    22702272      if (w2di.eq.1) then
    2271          fm0=fm0+ptimestep*(fm-fm0)/REAL(tho)
    2272          entr0=entr0+ptimestep*(alim+entr-entr0)/REAL(tho)
     2273         fm0=fm0+ptimestep*(fm-fm0)/tho
     2274         entr0=entr0+ptimestep*(alim+entr-entr0)/tho
    22732275      else
    22742276         fm0=fm
    … …  
    26542656c   ----------
    26552657
    2656       INTEGER ngrid,nlay,w2di,tho
     2658      INTEGER ngrid,nlay,w2di
     2659      REAL tho
    26572660      real ptimestep,l_mix,r_aspect
    26582661      REAL pt(ngrid,nlay),pdtadj(ngrid,nlay)
    … …  
    34923495
    34933496      if (w2di.eq.1) then
    3494          fm0=fm0+ptimestep*(fm-fm0)/REAL(tho)
    3495          entr0=entr0+ptimestep*(entr-entr0)/REAL(tho)
     3497         fm0=fm0+ptimestep*(fm-fm0)/tho
     3498         entr0=entr0+ptimestep*(entr-entr0)/tho
    34963499      else
    34973500         fm0=fm
    … …  
    37713774c   ----------
    37723775
    3773       INTEGER ngrid,nlay,w2di,tho
     3776      INTEGER ngrid,nlay,w2di
     3777      REAL tho
    37743778      real ptimestep,l_mix,r_aspect
    37753779      REAL pt(ngrid,nlay),pdtadj(ngrid,nlay)
    … …  
    44924496cRC
    44934497      if (w2di.eq.1) then
    4494          fm0=fm0+ptimestep*(fm-fm0)/REAL(tho)
    4495          entr0=entr0+ptimestep*(entr-entr0)/REAL(tho)
     4498         fm0=fm0+ptimestep*(fm-fm0)/tho
     4499         entr0=entr0+ptimestep*(entr-entr0)/tho
    44964500      else
    44974501         fm0=fm
    … …  
    51845188c   ----------
    51855189
    5186       INTEGER ngrid,nlay,w2di,tho
     5190      INTEGER ngrid,nlay,w2di
     5191      REAL tho
    51875192      real ptimestep,l_mix,r_aspect
    51885193      REAL pt(ngrid,nlay),pdtadj(ngrid,nlay)
    … …  
    59245929cRC
    59255930      if (w2di.eq.1) then
    5926          fm0=fm0+ptimestep*(fm-fm0)/REAL(tho)
    5927          entr0=entr0+ptimestep*(entr-entr0)/REAL(tho)
     5931         fm0=fm0+ptimestep*(fm-fm0)/tho
     5932         entr0=entr0+ptimestep*(entr-entr0)/tho
    59285933      else
    59295934         fm0=fm
Note: See TracChangeset for help on using the changeset viewer.