Changeset 5099 for LMDZ6/branches/Amaury_dev/libf/filtrez/mod_filtre_fft_loc.F90

Timestamp:

Jul 22, 2024, 9:29:09 PM (4 months ago)

Author:

abarral

Message:

Replace most uses of CPP_DUST by the corresponding logical defined in lmdz_cppkeys_wrapper.F90
Convert several files from .F to .f90 to allow Dust to compile w/o rrtm/ecrad
Create lmdz_yoerad.f90
(lint) Remove "!" on otherwise empty line

File:

• LMDZ6/branches/Amaury_dev/libf/filtrez/mod_filtre_fft_loc.F90 (modified) (3 diffs)

LMDZ6/branches/Amaury_dev/libf/filtrez/mod_filtre_fft_loc.F90

@@ -313 +313 @@
 !    INTEGER,INTENT(OUT) :: ll_index(nbniv)
 !    INTEGER,INTENT(OUT) :: ll_nb
-!
+
 !    INTEGER :: l,ll_begin, ll_end
 !   INTEGER :: omp_rank,omp_size
@@ -321 +321 @@
 !   INTEGER :: OMP_GET_THREAD_NUM
 !   EXTERNAL OMP_GET_THREAD_NUM
-!
-!   
+
+
 !   omp_size=OMP_GET_NUM_THREADS()
 !   omp_rank=OMP_GET_THREAD_NUM()    
 !   omp_chunk=nbniv/omp_size+min(1,MOD(nbniv,omp_size))
-!   
+
 !   ll_begin=omp_rank*OMP_CHUNK+1
 !   ll_nb=0
@@ -337 +337 @@
 !     ll_begin=ll_begin+omp_size*OMP_CHUNK
 !   ENDDO
-!  
+
 !  END SUBROUTINE get_ll_index