Changeset 1781 for trunk/LMDZ.GENERIC/libf

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.GENERIC/libf/phystd

Files:

• callcorrk.F90 (modified) (2 diffs)
• sfluxi.F (modified) (2 diffs)
• sfluxv.F (modified) (2 diffs)

trunk/LMDZ.GENERIC/libf/phystd/callcorrk.F90

@@ -804 +804 @@
 
             call sfluxv(dtauv,tauv,taucumv,albv,dwnv,wbarv,cosbv,  &
-                 acosz,stel_fract,gweight,                         &
-                 nfluxtopv,fluxtopvdn,nfluxoutv_nu,nfluxgndv_nu,              &
+                 acosz,stel_fract,                                 &
+                 nfluxtopv,fluxtopvdn,nfluxoutv_nu,nfluxgndv_nu,   &
                  fmnetv,fluxupv,fluxdnv,fzerov,taugsurf)
 
@@ -847 +847 @@
 
          call sfluxi(plevrad,tlevrad,dtaui,taucumi,ubari,albi,      &
-              wnoi,dwni,cosbi,wbari,gweight,nfluxtopi,nfluxtopi_nu, & 
+              wnoi,dwni,cosbi,wbari,nfluxtopi,nfluxtopi_nu,         & 
               fmneti,fluxupi,fluxdni,fluxupi_nu,fzeroi,taugsurfi)
 

trunk/LMDZ.GENERIC/libf/phystd/sfluxi.F

@@ -1 +1 @@
       SUBROUTINE SFLUXI(PLEV,TLEV,DTAUI,TAUCUMI,UBARI,RSFI,WNOI,DWNI,
-     *                  COSBI,WBARI,GWEIGHT,NFLUXTOPI,NFLUXTOPI_nu,
+     *                  COSBI,WBARI,NFLUXTOPI,NFLUXTOPI_nu,
      *                  FMNETI,fluxupi,fluxdni,fluxupi_nu,
      *                  FZEROI,TAUGSURF)
 
       use radinc_h
-      use radcommon_h, only: planckir, tlimit,sigma
+      use radcommon_h, only: planckir, tlimit,sigma, gweight
       use comcstfi_mod, only: pi
 
@@ -20 +20 @@
       real*8 COSBI(L_NLAYRAD,L_NSPECTI,L_NGAUSS)
       real*8 WBARI(L_NLAYRAD,L_NSPECTI,L_NGAUSS)
-      real*8 GWEIGHT(L_NGAUSS), NFLUXTOPI
+      real*8 NFLUXTOPI
       real*8 NFLUXTOPI_nu(L_NSPECTI)
       real*8 fluxupi_nu(L_NLAYRAD,L_NSPECTI)

trunk/LMDZ.GENERIC/libf/phystd/sfluxv.F

@@ -1 +1 @@
       SUBROUTINE SFLUXV(DTAUV,TAUV,TAUCUMV,RSFV,DWNV,WBARV,COSBV,
-     *                  UBAR0,STEL,GWEIGHT,NFLUXTOPV,FLUXTOPVDN,
+     *                  UBAR0,STEL,NFLUXTOPV,FLUXTOPVDN,
      *                  NFLUXOUTV_nu,NFLUXGNDV_nu,
      *                  FMNETV,FLUXUPV,FLUXDNV,FZEROV,taugsurf)
 
       use radinc_h
-      use radcommon_h, only: tlimit
+      use radcommon_h, only: tlimit, gweight
 
       implicit none
@@ -21 +21 @@
       real*8 NFLUXOUTV_nu(L_NSPECTV)
       real*8 NFLUXGNDV_nu(L_NSPECTV)
-      real*8 GWEIGHT(L_NGAUSS)
 
       integer L, NG, NW, NG1,k