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

Timestamp:

Jun 7, 2017, 4:05:31 PM (7 years ago)

Author:

mturbet

Message:

kcm1d like a phoenix rises from the ashes, part I

File:

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

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

@@ -100 +100 @@
 !$OMP THREADPRIVATE(file_id)
 !---- Please indicate the names of the optical property files below
-!     Please also choose the reference wavelengths of each aerosol
+!     Please also choose the reference wavelengths of each aerosol      
 
       if (noaero) then
@@ -230 +230 @@
 
 !$OMP MASTER
+
             INQUIRE(FILE=TRIM(datadir)//'/'//TRIM(aerdir)//&
                     '/'//TRIM(file_id(iaer,idomain)),&