Changeset 1310 for trunk/LMDZ.VENUS/libf/phyvenus/sw_venus_dc.F

Timestamp:

Jul 10, 2014, 5:59:16 PM (10 years ago)

Author:

slebonnois

Message:

SL: VENUS VERTICAL EXTENSION. NLTE and thermospheric processes, to be run with 78 levels and specific inputs.

File:

• trunk/LMDZ.VENUS/libf/phyvenus/sw_venus_dc.F (modified) (3 diffs)

trunk/LMDZ.VENUS/libf/phyvenus/sw_venus_dc.F

@@ -1 @@
-      SUBROUTINE SW_venus_dc( PRMU0, PFRAC, 
+      SUBROUTINE SW_venus_dc(PRMU0, PFRAC, 
      S              PPB, pt,
      S              PHEAT, 
@@ -27 +27 @@
 C     --------------
 C        ORIGINAL : 27/07/2005
+c        L.Salmi  : june 2013 astuce to reduce the excess of  NIR 
+c                   in the transition region LTE/LTE
+c
+c        G.Gilli  : feb  2014          
 C     ------------------------------------------------------------------
 C
@@ -64 +68 @@
       real   zldn                    ! downward IR flux (W/m**2) ?
       real   zlup                    !   upward IR flux (W/m**2) ?
-      real   zsolnet(nldc)           ! for testing mean net solar flux in DC
+      real   zsolnet(nldc+1)         ! for testing mean net solar flux in DC
       character*22 nullchar
       real   sza0,factsza,factflux