Changeset 1415 for trunk/LMDZ.GENERIC/libf/phystd

Timestamp:

Apr 14, 2015, 9:46:47 AM (10 years ago)

Author:

milmd

Message:

Update newstart and start2archive programs of LMDZ.GENERIC and LMDZ.MARS to the new organization.

File:

• trunk/LMDZ.GENERIC/libf/phystd/phyetat0.F90 (modified) (1 diff)

trunk/LMDZ.GENERIC/libf/phystd/phyetat0.F90

@@ -378 +378 @@
       write(*,*) "phyetat0: Failed loading <",trim(txt),">"
       write(*,*) "         ",trim(txt)," is set to zero"
+      qsurf(:,iq) = 0.
     else
       write(*,*) "phyetat0: Surface tracer <",trim(txt),"> range:", &