Changeset 1781 for trunk/LMDZ.TITAN/libf/phytitan/optcv.F90

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.TITAN/libf/phytitan/optcv.F90 (modified) (2 diffs)

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

@@ -1 +1 @@
 SUBROUTINE OPTCV(DTAUV,TAUV,TAUCUMV,PLEV,  &
      QXVAER,QSVAER,GVAER,WBARV,COSBV,       &
-     TAURAY,TAUAERO,TMID,PMID,TAUGSURF,GWEIGHT)
+     TAURAY,TAUAERO,TMID,PMID,TAUGSURF)
 
   use radinc_h
-  use radcommon_h, only: gasv, tlimit, Cmk, tgasref, pfgasref,wnov,scalep,indv,glat_ig
+  use radcommon_h, only: gasv, tlimit, Cmk, tgasref, pfgasref,wnov,scalep,indv,glat_ig,gweight
   use gases_h
   use comcstfi_mod, only: g, r
@@ -57 +57 @@
   ! Titan customisation
   ! J. Vatant d'Ollone (2016)
-  real*8 GWEIGHT(L_NGAUSS)
   real*8 DHAZE_T(L_LEVELS,L_NSPECTI)
   real*8 DHAZES_T(L_LEVELS,L_NSPECTI)