Changeset 3375 for trunk/LMDZ.PLUTO/libf

Timestamp:

Jun 13, 2024, 2:52:12 PM (6 months ago)

Author:

afalco

Message:

Pluto PCM: few fixes for aerohazes

File:

• trunk/LMDZ.PLUTO/libf/phypluto/callcorrk.F90 (modified) (4 diffs)

trunk/LMDZ.PLUTO/libf/phypluto/callcorrk.F90

@@ -576 +576 @@
 
 
+      ! AF24: for now only consider one aerosol (=haze) 
+      if (aerohaze) then 
         do iaer=1,naerkind
             ! Shortwave.
@@ -682 +684 @@
             end do ! L_LEVELS
         end do ! naerkind
+      end if ! aerohaze
 
 !-----------------------------------------------------------------------
 !     Aerosol optical depths
 !-----------------------------------------------------------------------
+      if (aerohaze) then 
         do iaer=1,naerkind     ! a bug was here
             do k=0,nlayer-1
@@ -704 +708 @@
 
          end do ! naerkind
+      else
+         tauaero(:,:)=0
+      end if ! aerohaze
 
          ! Albedo and Emissivity.
@@ -1042 +1049 @@
             do l=1,L_NLAYRAD
                fmnetv(l)=0.0d0
+               fmnetv_nu(l,:)=0.0d0
                fluxupv(l)=0.0d0
                fluxdnv(l)=0.0d0