Changeset 1781 for trunk/LMDZ.TITAN/libf


Ignore:
Timestamp:
Aug 30, 2017, 6:13:14 PM (7 years ago)
Author:
jvatant
Message:

Useless argument Gweight in rad. tr. routines ( present in radcommon.h )
-JVO

Location:
trunk/LMDZ.TITAN/libf/phytitan
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.TITAN/libf/phytitan/callcorrk.F90

    r1722 r1781  
    587587            call optcv(dtauv,tauv,taucumv,plevrad,                 &
    588588                 qxvaer,qsvaer,gvaer,wbarv,cosbv,tauray,tauaero,   &
    589                  tmid,pmid,taugsurf,gweight)
     589                 tmid,pmid,taugsurf)
    590590
    591591            call sfluxv(dtauv,tauv,taucumv,albv,dwnv,wbarv,cosbv,  &
    592                  acosz,stel_fract,gweight,                         &
    593                  nfluxtopv,fluxtopvdn,nfluxoutv_nu,nfluxgndv_nu,              &
     592                 acosz,stel_fract,                                 &
     593                 nfluxtopv,fluxtopvdn,nfluxoutv_nu,nfluxgndv_nu,   &
    594594                 fmnetv,fluxupv,fluxdnv,fzerov,taugsurf)
    595595
    … …  
    630630         call optci(plevrad,tlevrad,dtaui,taucumi,                  &
    631631              qxiaer,qsiaer,giaer,cosbi,wbari,tauaero,tmid,pmid,    &
    632               taugsurfi,gweight)
     632              taugsurfi)
    633633
    634634         call sfluxi(plevrad,tlevrad,dtaui,taucumi,ubari,albi,      &
    635               wnoi,dwni,cosbi,wbari,gweight,nfluxtopi,nfluxtopi_nu, &
     635              wnoi,dwni,cosbi,wbari,nfluxtopi,nfluxtopi_nu,        &
    636636              fmneti,fluxupi,fluxdni,fluxupi_nu,fzeroi,taugsurfi)
    637637

  • trunk/LMDZ.TITAN/libf/phytitan/optci.F90

    r1725 r1781  
    11subroutine optci(PLEV,TLEV,DTAUI,TAUCUMI,      &
    22     QXIAER,QSIAER,GIAER,COSBI,WBARI,TAUAERO,  &
    3      TMID,PMID,TAUGSURF,GWEIGHT)
     3     TMID,PMID,TAUGSURF)
    44
    55  use radinc_h
    6   use radcommon_h, only: gasi,tlimit,Cmk,tgasref,pfgasref,wnoi,scalep,indi,glat_ig
     6  use radcommon_h, only: gasi,tlimit,Cmk,tgasref,pfgasref,wnoi,scalep,indi,glat_ig,gweight
    77  use gases_h
    88  use comcstfi_mod, only: g, r
    … …  
    5151  ! Titan customisation
    5252  ! J. Vatant d'Ollone (2016)
    53   real*8 GWEIGHT(L_NGAUSS)
    5453  real*8 DHAZE_T(L_LEVELS,L_NSPECTI)
    5554  real*8 DHAZES_T(L_LEVELS,L_NSPECTI)

  • trunk/LMDZ.TITAN/libf/phytitan/optcv.F90

    r1725 r1781  
    11SUBROUTINE OPTCV(DTAUV,TAUV,TAUCUMV,PLEV,  &
    22     QXVAER,QSVAER,GVAER,WBARV,COSBV,       &
    3      TAURAY,TAUAERO,TMID,PMID,TAUGSURF,GWEIGHT)
     3     TAURAY,TAUAERO,TMID,PMID,TAUGSURF)
    44
    55  use radinc_h
    6   use radcommon_h, only: gasv, tlimit, Cmk, tgasref, pfgasref,wnov,scalep,indv,glat_ig
     6  use radcommon_h, only: gasv, tlimit, Cmk, tgasref, pfgasref,wnov,scalep,indv,glat_ig,gweight
    77  use gases_h
    88  use comcstfi_mod, only: g, r
    … …  
    5757  ! Titan customisation
    5858  ! J. Vatant d'Ollone (2016)
    59   real*8 GWEIGHT(L_NGAUSS)
    6059  real*8 DHAZE_T(L_LEVELS,L_NSPECTI)
    6160  real*8 DHAZES_T(L_LEVELS,L_NSPECTI)

  • trunk/LMDZ.TITAN/libf/phytitan/sfluxi.F

    r1384 r1781  
    11      SUBROUTINE SFLUXI(PLEV,TLEV,DTAUI,TAUCUMI,UBARI,RSFI,WNOI,DWNI,
    2      *                  COSBI,WBARI,GWEIGHT,NFLUXTOPI,NFLUXTOPI_nu,
     2     *                  COSBI,WBARI,NFLUXTOPI,NFLUXTOPI_nu,
    33     *                  FMNETI,fluxupi,fluxdni,fluxupi_nu,
    44     *                  FZEROI,TAUGSURF)
    55
    66      use radinc_h
    7       use radcommon_h, only: planckir, tlimit,sigma
     7      use radcommon_h, only: planckir, tlimit,sigma, gweight
    88      use comcstfi_mod, only: pi
    99
    … …  
    2020      real*8 COSBI(L_NLAYRAD,L_NSPECTI,L_NGAUSS)
    2121      real*8 WBARI(L_NLAYRAD,L_NSPECTI,L_NGAUSS)
    22       real*8 GWEIGHT(L_NGAUSS), NFLUXTOPI
     22      real*8 NFLUXTOPI
    2323      real*8 NFLUXTOPI_nu(L_NSPECTI)
    2424      real*8 fluxupi_nu(L_NLAYRAD,L_NSPECTI)

  • trunk/LMDZ.TITAN/libf/phytitan/sfluxv.F

    r1482 r1781  
    11      SUBROUTINE SFLUXV(DTAUV,TAUV,TAUCUMV,RSFV,DWNV,WBARV,COSBV,
    2      *                  UBAR0,STEL,GWEIGHT,NFLUXTOPV,FLUXTOPVDN,
     2     *                  UBAR0,STEL,NFLUXTOPV,FLUXTOPVDN,
    33     *                  NFLUXOUTV_nu,NFLUXGNDV_nu,
    44     *                  FMNETV,FLUXUPV,FLUXDNV,FZEROV,taugsurf)
    55
    66      use radinc_h
    7       use radcommon_h, only: tlimit
     7      use radcommon_h, only: tlimit, gweight
    88
    99      implicit none
    … …  
    2121      real*8 NFLUXOUTV_nu(L_NSPECTV)
    2222      real*8 NFLUXGNDV_nu(L_NSPECTV)
    23       real*8 GWEIGHT(L_NGAUSS)
    2423
    2524      integer L, NG, NW, NG1,k
Note: See TracChangeset for help on using the changeset viewer.