Changeset 4055 for trunk/LMDZ.GENERIC/libf/phygeneric/radcommon_h.F90

Timestamp:

Feb 6, 2026, 10:20:21 PM (4 weeks ago)

Author:

mturbet

Message:

Cleaning of continuum routines following 04-02-26 hackathon. RIP our beloved bilinear and bilinearbig routines. You will be deeply missed...

File:

• trunk/LMDZ.GENERIC/libf/phygeneric/radcommon_h.F90 (modified) (1 diff)

trunk/LMDZ.GENERIC/libf/phygeneric/radcommon_h.F90

@@ -73 +73 @@
       REAL*8 blamv(L_NSPECTV+1) ! these are needed by suaer.F90
 !$OMP THREADPRIVATE(blami,blamv)
-
-      !! AS: introduced to avoid doing same computations again for continuum
-      INTEGER, DIMENSION(:,:,:), ALLOCATABLE :: indi
-      INTEGER, DIMENSION(:,:,:), ALLOCATABLE :: indv
-!$OMP THREADPRIVATE(indi,indv)
 
       !!! ALLOCATABLE STUFF SO THAT DIMENSIONS ARE READ in *.dat FILES -- AS 12/2011