Changeset 769 for trunk/LMDZ.MARS/libf/phymars/nlte_aux.F

Timestamp:

Sep 4, 2012, 3:27:11 PM (12 years ago)

Author:

acolaitis

Message:

MESOSCALE. minor modifications to allow compilation with new physics + nesting with latest svn revision

File:

• trunk/LMDZ.MARS/libf/phymars/nlte_aux.F (modified) (1 diff)

trunk/LMDZ.MARS/libf/phymars/nlte_aux.F

@@ -432 +432 @@
 
       if ( wvoigt .lt. 0.0d0 ) then
-         write (*,*) ' Subroutine WE/ Error in Voift EQS calculation '
-         write (*,*) '  WL, WD, X, Y = ', wl, wd, x, y
-         stop '  ERROR : Imaginary EQW. Revise spectral data. '
+       write (*,*) ' Subroutine WE/ Error in Voift EQS calculation'
+       write (*,*) '  WL, WD, X, Y = ', wl, wd, x, y
+       stop '  ERROR : Imaginary EQW. Revise spectral data. '
       endif