Changeset 918 for trunk/LMDZ.GENERIC/libf/phystd/callcorrk.F90

Timestamp:

Mar 28, 2013, 1:18:46 PM (12 years ago)

Author:

jleconte

Message:

28/03/2013 == JL

• optimization of optci and optcv routines. 15to 25% gain on these routines.

around 10% on the whole code with 1 scatterer.

• No changes on output (byte to byte)

• corrected bug in gray case in callcorrk.
• added profiling option in makegcm_ifort. See the file for details

File:

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

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

@@ -223 +223 @@
          banddir=trim(adjustl(corrkdir))//'/'//trim(adjustl(banddir))
 
-         call sugas_corrk       ! set up gaseous absorption properties
          call setspi            ! basic infrared properties
          call setspv            ! basic visible properties
+         call sugas_corrk       ! set up gaseous absorption properties
          call suaer_corrk       ! set up aerosol optical properties