Changeset 1781 for trunk/LMDZ.TITAN/libf/phytitan/callcorrk.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/callcorrk.F90 (modified) (2 diffs)

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

@@ -587 +587 @@
             call optcv(dtauv,tauv,taucumv,plevrad,                 &
                  qxvaer,qsvaer,gvaer,wbarv,cosbv,tauray,tauaero,   &
-                 tmid,pmid,taugsurf,gweight)
+                 tmid,pmid,taugsurf)
 
             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)
 
@@ -630 +630 @@
          call optci(plevrad,tlevrad,dtaui,taucumi,                  &
               qxiaer,qsiaer,giaer,cosbi,wbari,tauaero,tmid,pmid,    &
-              taugsurfi,gweight)
+              taugsurfi)
 
          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)