Changeset 3660

Timestamp:

Feb 27, 2025, 2:53:10 PM (5 months ago)

Author:

emoisan

Message:

Titan physics:
For debug: initialize optical variables for the first atmospheric layer.
EMo

File:

• trunk/LMDZ.TITAN/libf/phytitan/optci.F90 (modified) (2 diffs)

trunk/LMDZ.TITAN/libf/phytitan/optci.F90 ¶

@@ -173 +173 @@
    end do ! L_LEVELS
 
+   ! initialize k=1 level (to avoid NaN values and error in debug mode)
+   DIAG_OPTT(1,:,1) = 0.0 ! dtau
+   DIAG_OPTT(1,:,2) = 1.0  ! wbar
+   DIAG_OPTT(1,:,3) = 1.0  ! gbar
+   DIAG_OPTT(1,:,4) = 0.d0
+   DIAG_OPTT(1,:,5) = 0.d0
+
    do NW=1,L_NSPECTI
       ! We ignore K=1...
@@ -336 +343 @@
                DIAG_OPTT(k,nw,3) = 1.0  ! gbar
             ENDIF
-            
+
          ! Optics and microphysics no coupled :
          ELSE