Changeset 4056 for trunk/LMDZ.GENERIC/libf/phygeneric/suaer_corrk.F90

Timestamp:

Feb 6, 2026, 10:30:50 PM (2 days ago)

Author:

mturbet

Message:

cleaning: remove aerave.F routine

File:

• trunk/LMDZ.GENERIC/libf/phygeneric/suaer_corrk.F90 (modified) (2 diffs)

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

@@ -551 +551 @@
 !     Averaged optical properties (GCM channels)
 
-!            CALL aerave ( nwvl,&
-!            wvl(:),ep(:,isize),omeg(:,isize),gfactor(:,isize),&
-!            lamref,epref,tstellar,&
-!            L_NSPECTV,blamv,epavVI,&
-!            omegavVI,gavVI,QREFvis(iaer,isize))!,omegaREFir(iaer,isize))
             CALL aerave_new ( nwvl,&
             wvl(:),ep(:,isize),omeg(:,isize),gfactor(:,isize),&
@@ -591 +586 @@
 !     radcommon_h.F90
 
-!            CALL aerave ( nwvl,&
-!            wvl(:),ep(:,isize),omeg(:,isize),gfactor(:,isize),&
-!            lamref,epref,tplanet,&
-!            L_NSPECTI,blami,epavIR,&
-!            omegavIR,gavIR,QREFir(iaer,isize))!,omegaREFir(iaer,isize))
             CALL aerave_new ( nwvl,&
             wvl(:),ep(:,isize),omeg(:,isize),gfactor(:,isize),&