Changeset 3695 for trunk/LMDZ.PLUTO/libf/phypluto/physiq_mod.F90

Timestamp:

Mar 19, 2025, 2:27:25 PM (4 months ago)

Author:

debatzbr

Message:

Calculate the visible opacity everywhere
BBT

File:

• trunk/LMDZ.PLUTO/libf/phypluto/physiq_mod.F90 (modified) (1 diff)

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

@@ -2201 +2201 @@
       !   call write_output('dtaui'//str2,'Layer optical thickness attenuation in IR band '//str2,'',int_dtaui(:,nlayer:1:-1,nw))
       !enddo
-
+      call write_output('dtauv_01','Layer optical thickness attenuation in VI band','',int_dtauv(:,nlayer:1:-1,1))
+      call write_output('dtauv_23','Layer optical thickness attenuation in VI band','',int_dtauv(:,nlayer:1:-1,23))
+      call write_output('dtaui_01','Layer optical thickness attenuation in IR band','',int_dtaui(:,nlayer:1:-1,1))
+      call write_output('dtaui_17','Layer optical thickness attenuation in IR band','',int_dtaui(:,nlayer:1:-1,17))
+      
       ! Temporary inclusions for heating diagnostics.
       if (.not.fast) then