Changeset 3650 for trunk/LMDZ.PLUTO/libf/phypluto/aerosol_mod.F90

Timestamp:

Feb 26, 2025, 10:41:29 AM (4 months ago)

Author:

afalco

Message:

Pluto: fix bug in aerosol_mod in parallel. Setting deprecated aerohaze=true gives an error.
AF

File:

• trunk/LMDZ.PLUTO/libf/phypluto/aerosol_mod.F90 (modified) (1 diff)

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

@@ -75 +75 @@
             STOP "No filename given for haze profile. Either set hazemmr_file or hazedens_file"
         endif
-
-        if (is_master) then
-            if(.not.allocated(levdat)) then
-                allocate(levdat(Nfine))
-            endif
-            if(.not.allocated(densdat)) then
-                allocate(densdat(Nfine))
-            endif
+!$OMP MASTER
+        if(.not.allocated(levdat)) then
+            allocate(levdat(Nfine))
+        endif
+        if(.not.allocated(densdat)) then
+            allocate(densdat(Nfine))
+        endif
 
 
-            file_path=trim(datadir)//'/haze_prop/'//file_name
-            open(224,file=file_path,form='formatted')
-            do ifine=1,Nfine
-            read(224,*) levdat(ifine), densdat(ifine)
-            enddo
-            close(224)
-            print*, 'Read Haze profile: ',file_path
-        endif
+        file_path=trim(datadir)//'/haze_prop/'//file_name
+        open(224,file=file_path,form='formatted')
+        do ifine=1,Nfine
+        read(224,*) levdat(ifine), densdat(ifine)
+        enddo
+        close(224)
+        print*, 'Read Haze profile: ',file_path
+!$OMP END MASTER
 !$OMP BARRIER
       ENDIF