Changeset 1230 for trunk/LMDZ.MARS/libf/phymars

Timestamp:

Apr 18, 2014, 12:06:21 PM (11 years ago)

Author:

emillour

Message:

Mars GCM:
Fix the bug fix in start2archive.
EM

File:

• trunk/LMDZ.MARS/libf/phymars/start2archive.F (modified) (3 diffs)

trunk/LMDZ.MARS/libf/phymars/start2archive.F

@@ -21 +21 @@
       use infotrac, only: iniadvtrac, nqtot, tname
       use comsoil_h, only: nsoilmx, inertiedat
-      use surfdat_h, only: ini_surfdat_h
+      use surfdat_h, only: ini_surfdat_h, qsurf
       use comsoil_h, only: ini_comsoil_h
       use comgeomphy, only: initcomgeomphy
@@ -69 +69 @@
       REAL tauscaling(ngridmx) ! dust conversion factor
       REAL q2(ngridmx,llm+1)
-      REAL,ALLOCATABLE :: qsurf(:,:)
       REAL emis(ngridmx)
       INTEGER start,length
@@ -134 +133 @@
 ! allocate arrays:
       allocate(q(ip1jmp1,llm,nqtot))
-      allocate(qsurf(ngridmx,nqtot))
       allocate(qsurfS(ip1jmp1,nqtot))
       call ini_surfdat_h(ngridmx,nqtot)