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

Timestamp:

Apr 16, 2014, 11:35:28 AM (11 years ago)

Author:

emillour

Message:

Generic model:

• Fixed bug in infotrac.F90 which was only an issue when using 0 tracers (unnecessary tests on tracer number nq).
• Added missing initialization (allocations of comsoil_ arrays) in start2archive.

EM

File:

• trunk/LMDZ.GENERIC/libf/phystd/start2archive.F (modified) (1 diff)

trunk/LMDZ.GENERIC/libf/phystd/start2archive.F

@@ -150 +150 @@
       allocate(qsurf(ngridmx,nqtot))
       allocate(qsurfS(ip1jmp1,nqtot))
+! other array allocations:
+      call ini_comsoil_h(ngridmx)
 
       fichnom = 'start.nc'