Changeset 1397 for trunk/LMDZ.GENERIC/libf/phystd/suaer_corrk.F90

Timestamp:

Mar 13, 2015, 9:17:42 AM (10 years ago)

Author:

milmd

Message:

In LMDZ.GENERIC replacement of all phystd .h files by module files.

File:

• trunk/LMDZ.GENERIC/libf/phystd/suaer_corrk.F90 (modified) (2 diffs)

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

@@ -11 +11 @@
       use radcommon_h, only: qrefvis,qrefir,omegarefvis,omegarefir
       use aerosol_mod
+      use callkeys_mod, only: tplanet
 
       implicit none
@@ -44 +45 @@
 !==================================================================
 
-#include "callkeys.h"
 !     Optical properties (read in external ASCII files)
       INTEGER,SAVE      :: nwvl  ! Number of wavelengths in