Changeset 1310 for trunk/LMDZ.VENUS/libf/phyvenus/radlwsw.NewtonCool

Timestamp:

Jul 10, 2014, 5:59:16 PM (11 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/radlwsw.NewtonCool (modified) (4 diffs)

trunk/LMDZ.VENUS/libf/phyvenus/radlwsw.NewtonCool

@@ -3 +3 @@
 !
       SUBROUTINE radlwsw(dist, rmu0, fract, zzlev,
-     .                  paprs, pplay,tsol, pt, nq, nmicro, pq,qaer)
+     .                  paprs, pplay,tsol, pt)
       
 c======================================================================
@@ -25 +25 @@
       use dimphy
       USE comgeomphy
-      USE phys_state_var_mod, only: falbe,heat,cool,radsol,
+      USE phys_state_var_mod, only: heat,cool,radsol,
      .      topsw,toplw,solsw,sollw,sollwdown,lwnet,swnet
       USE write_field_phy
@@ -34 +34 @@
 
 c ARGUMENTS
-      INTEGER nq,nmicro
       real rmu0(klon), fract(klon), dist
  
@@ -40 +39 @@
       real tsol(klon)
       real pt(klon,klev)
-      real pq(klon,klev,nq)
-      REAL qaer(klon,klev,nq)
  
 c LOCAL VARIABLES