Changeset 3990 for trunk/LMDZ.GENERIC/libf/phystd/setspv.F90

Timestamp:

Dec 12, 2025, 5:36:11 PM (2 days ago)

Author:

emillour

Message:

Generic PCM:
OpenMP bug fix in ave_stelspec.F90 (line counting strategy should only be done
by the master thread). While at it turned ave_stelspec and setspv into modules.
EM

File:

• trunk/LMDZ.GENERIC/libf/phystd/setspv.F90 (modified) (3 diffs)

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

@@ +1 @@
+      module setspv_mod
+      
+      implicit none
+      
+      contains
+      
       subroutine setspv
 
@@ -27 +33 @@
       use datafile_mod, only: datadir
       use callkeys_mod, only: Fat1AU
+      use ave_stelspec_mod, only: ave_stelspec
 
       implicit none
@@ -132 +139 @@
       print*,' '
 
-      RETURN
     END subroutine setspv
+    
+    end module setspv_mod
+