Changeset 5113 for LMDZ6/branches/Amaury_dev/libf/dyn3dmem/filtreg_p.F90

Timestamp:

Jul 24, 2024, 1:17:08 PM (2 months ago)

Author:

abarral

Message:

Rename modules in misc from *_mod > lmdz_*
Put cbrt.f90, ch*.f90, pch*.f90 in new lmdz_libmath_pch.f90

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3dmem/filtreg_p.F90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3dmem/filtreg_p.F90

@@ -183 +183 @@
      IF (.NOT. use_filtre_fft) THEN
 
-  ! !---------------------------------!
-  ! ! Agregation des niveau verticaux !
-  ! ! uniquement necessaire pour une  !
-  ! ! execution OpenMP                !
-  ! !---------------------------------!
+  !---------------------------------!
+  ! Agregation des niveau verticaux !
+  ! uniquement necessaire pour une  !
+  ! execution OpenMP                !
+  !---------------------------------!
         ll_nb = 0
 !$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
@@ -298 +298 @@
         IF( ifiltre==2 )  THEN
 
-  ! !-------------------------------------!
-  ! ! Dés-agregation des niveau verticaux !
-  ! ! uniquement necessaire pour une      !
-  ! ! execution OpenMP                    !
-  ! !-------------------------------------!
+  !-------------------------------------!
+  ! Dés-agregation des niveau verticaux !
+  ! uniquement necessaire pour une      !
+  ! execution OpenMP                    !
+  !-------------------------------------!
            ll_nb = 0
 !$OMP DO SCHEDULE(STATIC,OMP_CHUNK)