Changeset 4077 for trunk/LMDZ.GENERIC/libf/phygeneric/aerosol_optical_properties.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/aerosol_optical_properties.F90 (moved) (moved from trunk/LMDZ.GENERIC/libf/phygeneric/aeroptproperties.F90) (4 diffs)

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

@@ -1 @@
-module aeroptproperties_mod
+module aerosol_optical_properties_mod
 
 implicit none
@@ -5 +5 @@
 contains
 
-      SUBROUTINE aeroptproperties(ngrid,nlayer,reffrad,nueffrad,   &
+      SUBROUTINE aerosol_optical_properties(ngrid,nlayer,reffrad,  &
+                                  nueffrad,                        &
                                   QVISsQREF3d,omegaVIS3d,gVIS3d,   &
                                   QIRsQREF3d,omegaIR3d,gIR3d,      &
                                   QREFvis3d,QREFir3d)!,            &
-!                                  omegaREFvis3d,omegaREFir3d)
+!                                 omegaREFvis3d,omegaREFir3d)
 
       use radinc_h,    only: L_NSPECTI,L_NSPECTV,nsizemax,naerkind
@@ -310 +311 @@
 !       1.3 Effective variance
         if(nuefftabsize.eq.1)then ! addded by RDW
-           print*,'Warning: no variance range in aeroptproperties'
+           print*,'Warning: no variance range in aerosol_optical_properties'
            nuefftab(1)=0.2
         else
@@ -814 +815 @@
       ENDDO ! iaer (loop on aerosol kind)
 
-    END SUBROUTINE aeroptproperties
-
-
-end module aeroptproperties_mod
+    END SUBROUTINE aerosol_optical_properties
+
+
+end module aerosol_optical_properties_mod