Changeset 2681 for trunk/LMDZ.MARS

Timestamp:

May 19, 2022, 8:54:29 AM (3 years ago)

Author:

emillour

Message:

Mars GCM:
Minor bug fix: missing initialization of surface tracer values when not found in the startfi.nc file.
EM

File:

• trunk/LMDZ.MARS/libf/phymars/phyetat0_mod.F90 (modified) (1 diff)

trunk/LMDZ.MARS/libf/phymars/phyetat0_mod.F90

@@ -566 +566 @@
          write(*,*) "         ",trim(txt)," is set to zero"
        endif
+       qsurf(:,iq)=0.
     else
       qsurf(:,iq)=0.