Changeset 1781 for trunk/LMDZ.GENERIC/libf/phystd/sfluxv.F

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

File:

• trunk/LMDZ.GENERIC/libf/phystd/sfluxv.F (modified) (2 diffs)

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