Changeset 484 for trunk/LMDZ.GENERIC/libf/phystd/setspv.F90

Timestamp:

Dec 20, 2011, 12:00:51 PM (13 years ago)

Author:

aslmd

Message:

GENERIC: Allocatable gastype in sugas_corrk instead of hardcoded (it was a problem for more than 4 gases) JL + AS.

File:

• trunk/LMDZ.GENERIC/libf/phystd/setspv.F90 (modified) (1 diff)

trunk/LMDZ.GENERIC/libf/phystd/setspv.F90

@@ -25 +25 @@
       use radinc_h,    only: L_NSPECTV, corrkdir, banddir
       use radcommon_h, only: BWNV,BLAMV,WNOV,DWNV,WAVEV, &
-                             STELLARF,TAURAY,gastype
+                             STELLARF,TAURAY
       use datafile_mod, only: datadir