Changeset 1812 for trunk/LMDZ.TITAN/libf/phytitan

Timestamp:

Oct 25, 2017, 11:15:57 AM (7 years ago)

Author:

jvatant

Message:

Correct ychim allocation that should be at firstcall
JVO

File:

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

trunk/LMDZ.TITAN/libf/phytitan/physiq_mod.F90

@@ -463 +463 @@
          if ( callchim .and. (nq.gt.nmicro) ) then
 
+            allocate(ychim(ngrid,nlayer,nq-nmicro))
+
             ctimestep = ptimestep*REAL(ichim)
 
@@ -1021 +1023 @@
             ztemp(:,:) = ztfibar(:,:)
 
-            allocate(ychim(ngrid,nlayer,nq-nmicro))
-
             if (nq.gt.nmicro) then
                do iq = nmicro+1,nq