Changeset 1517


Ignore:
Timestamp:
May 10, 2011, 3:07:35 PM (14 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.
Location:
LMDZ5/trunk
Files:
6 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/arch/arch-PW6_VARGAS.fcm

    r1492 r1517  
    88%PROD_FFLAGS         -O3
    99%DEV_FFLAGS          -O2 -qfullpath -qinitauto=7FBFFFFF -qfloat=nans -qflttrap=overflow:zerodivide:invalid:enable -qsigtrap
    10 %DEBUG_FFLAGS        -g -qfullpath -qnooptimize -qinitauto=7FBFFFFF  -qfloat=nans -qflttrap=overflow:zerodivide:invalid:enable -qsigtrap -qcheck -qextchk
     10%DEBUG_FFLAGS        -g -qfullpath -qnooptimize -qinitauto=7FBFFFFF  -qfloat=nans -qflttrap=overflow:zerodivide:invalid:enable -qsigtrap -qcheck
    1111%MPI_FFLAGS          -I/usr/lpp/ppe.poe/include/thread64
    1212%OMP_FFLAGS          -qsmp=omp

  • LMDZ5/trunk/libf/phylmd/calltherm.F90

    r1496 r1517  
    154154     &      ,zfm_therm,zentr_therm  &
    155155     &      ,r_aspect_thermals,30.,w2di_thermals  &
    156      &      ,tau_thermals,3)
     156     &      ,tau_thermals)
    157157          else if (iflag_thermals.eq.2) then
    158158            CALL thermcell_sec(klon,klev,zdt  &
    … …  
    162162     &      ,zfm_therm,zentr_therm  &
    163163     &      ,r_aspect_thermals,30.,w2di_thermals  &
    164      &      ,tau_thermals,3)
     164     &      ,tau_thermals)
    165165          else if (iflag_thermals.eq.3) then
    166166            CALL thermcell(klon,klev,zdt  &
    … …  
    170170     &      ,zfm_therm,zentr_therm  &
    171171     &      ,r_aspect_thermals,l_mix_thermals,w2di_thermals  &
    172      &      ,tau_thermals,3)
     172     &      ,tau_thermals)
    173173          else if (iflag_thermals.eq.10) then
    174174            CALL thermcell_eau(klon,klev,zdt  &
    … …  
    178178     &      ,zfm_therm,zentr_therm  &
    179179     &      ,r_aspect_thermals,l_mix_thermals,w2di_thermals  &
    180      &      ,tau_thermals,3)
     180     &      ,tau_thermals)
    181181          else if (iflag_thermals.eq.11) then
    182182              abort_message = 'cas non prevu dans calltherm'

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

    r1403 r1517  
    894894      if (iflag_con.eq.4) then
    895895       CALL cv_yield(nloc,ncum,nd,nk,icb,inb,delt
    896      :              ,t,q,t_wake,q_wake,u,v,tra
    897      :              ,gz,p,ph,h,hp,lv,cpn,th
     896     :              ,t,q,u,v
     897     :              ,gz,p,ph,h,hp,lv,cpn
    898898     :              ,ep,clw,frac,m,mp,qp,up,vp
    899899     :              ,wt,water,evap

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

    r1516 r1517  
    34823482     I                   frac_impa, frac_nucl,
    34833483     I                   pphis,airephy,dtime,itap,
    3484      I                   rlon,rlat,qx(:,:,ivap),da,phi,mp,upwd,dnwd)
     3484     I                   qx(:,:,ivap),da,phi,mp,upwd,dnwd)
    34853485
    34863486

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

    r1403 r1517  
    4343c   ----------
    4444
    45       INTEGER ngrid,nlay,w2di,tho
     45      INTEGER ngrid,nlay,w2di
     46      REAL tho
    4647      real ptimestep,l_mix,r_aspect
    4748      REAL pt(ngrid,nlay),pdtadj(ngrid,nlay)
    … …  
    869870cRC
    870871      if (w2di.eq.1) then
    871          fm0=fm0+ptimestep*(fm-fm0)/REAL(tho)
    872          entr0=entr0+ptimestep*(entr-entr0)/REAL(tho)
     872         fm0=fm0+ptimestep*(fm-fm0)/tho
     873         entr0=entr0+ptimestep*(entr-entr0)/tho
    873874      else
    874875         fm0=fm

  • 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.