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

Timestamp:

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

Author:

afalco

Message:

Pluto PCM:
initialize some variables to 0.
AF

File:

• trunk/LMDZ.PLUTO/libf/phypluto/physiq_mod.F90 (modified) (2 diffs)

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

@@ -625 +625 @@
          savedeclin=0.
          saveday=pday
-         !adjust=0. ! albedo adjustment for convergeps
+         adjust=0. ! albedo adjustment for convergeps
 
 !        Initialize soil.
@@ -864 +864 @@
       ! Compute local stellar zenith angles
       ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+      fract = 0
       if (diurnal) then
          ztim1=SIN(declin)