Changeset 3613 for trunk/LMDZ.PLUTO/libf/phypluto/suaer_corrk.F90

Timestamp:

Feb 7, 2025, 4:58:43 PM (26 hours ago)

Author:

afalco

Message:

Pluto: fixes for OpenMP.
AF

File:

• trunk/LMDZ.PLUTO/libf/phypluto/suaer_corrk.F90 (modified) (2 diffs)

trunk/LMDZ.PLUTO/libf/phypluto/suaer_corrk.F90

@@ -136 +136 @@
                        TRIM(aersprop_file)
             write(*,*)'Suaer fractal aerosols optical properties, using: ', &
-                       TRIM(aerfprop_file) 
+                       TRIM(aerfprop_file)
          endif
          ! Visible
@@ -149 +149 @@
             lamrefir(iaer)  = 2.E-6    ! Reference wavelength for opacity IR (in the LEISA range)
          enddo ! end iaer=1,naerkind
-         
-      else 
+
+      else
          do iaer=1,naerkind
             if (iaer.eq.1) then