Changeset 4077 for trunk/LMDZ.GENERIC/libf/phygeneric/radinc_h.F90

Timestamp:

Feb 18, 2026, 10:28:23 AM (6 weeks ago)

Author:

mturbet

Message:

renaming and merging of radiative routines in phygeneric

File:

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

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

@@ -64 +64 @@
 !$OMP THREADPRIVATE(L_NLAYRAD,L_LEVELS,L_NLEVRAD)
 
-      ! These are set in sugas_corrk
+      ! These are set in rad_correlatedk_read_opacity_tables 
       ! [uses allocatable arrays] -- AS 12/2011
-      integer :: L_NPREF, L_NTREF, L_REFVAR, L_PINT, L_NGAUSS  !L_NPREF, L_NTREF, L_REFVAR, L_PINT, L_NGAUSS read by master in sugas_corrk
+      integer :: L_NPREF, L_NTREF, L_REFVAR, L_PINT, L_NGAUSS  !L_NPREF, L_NTREF, L_REFVAR, L_PINT, L_NGAUSS read by master in rad_correlatedk_read_opacity_tables 
 
       integer, parameter :: L_NSPECTI = NBinfrared