Changeset 4077 for trunk/LMDZ.GENERIC/libf/phygeneric/aerosol_optical_properties_averaging.F

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/aerosol_optical_properties_averaging.F (moved) (moved from trunk/LMDZ.GENERIC/libf/phygeneric/aerave_new.F) (4 diffs)

trunk/LMDZ.GENERIC/libf/phygeneric/aerosol_optical_properties_averaging.F

@@ -1 @@
-      SUBROUTINE aerave_new ( ndata,
+      SUBROUTINE aerosol_optical_properties_averaging(ndata,
      & longdata,epdata,omegdata,gdata,          
-     &            longref,epref,temp,nir,longir
-     &            ,epir,omegir,gir,qref,omegaref        )
+     & longref,epref,temp,nir,longir,
+     & epir,omegir,gir,qref,omegaref)
 
 
@@ -87 +87 @@
         IF (longdata(1).LT.longdata(ndata)) THEN
           IF (.not.(longdata(idata).LT.longdata(idata+1))) THEN
-           call abort_physic("aerave_new", 
+           call abort_physic("aerosol_optical_properties_averaging", 
      &     "Non descending order in longdata",1)
           ENDIF
         ELSEIF (longdata(1).GT.longdata(ndata)) THEN
           IF (.not.(longdata(idata).GT.longdata(idata+1))) THEN
-           call abort_physic("aerave_new",
+           call abort_physic("aerosol_optical_properties_averaging",
      &     "Non ascending order in longdata",1)
           ENDIF
@@ -174 +174 @@
 c
             long=longir(iir) + (ibande-0.5E+0) * deltalong
-            CALL blackl(DBLE(long),DBLE(temp),tmp1)
+            CALL rad_blackbody_planck_law_wavelength(DBLE(long),
+     &      DBLE(temp),tmp1)
             emit=REAL(tmp1)
 c
@@ -240 +241 @@
 c
             long=longir(iir) + (ibande-0.5E+0) * deltalong
-            CALL blackl(DBLE(long),DBLE(temp),tmp1)
+            CALL rad_blackbody_planck_law_wavelength(DBLE(long)
+     &      ,DBLE(temp),tmp1)
             emit=REAL(tmp1)
 c