Changeset 1230

Timestamp:

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

Author:

emillour

Message:

Mars GCM:
Fix the bug fix in start2archive.
EM

Location:

trunk/LMDZ.MARS

Files:

• README (modified) (1 diff)
• libf/phymars/start2archive.F (modified) (3 diffs)

trunk/LMDZ.MARS/README

@@ -2042 +2042 @@
 == 18/04/2014 == EM
 Some minor fixes and cleanup.
-- allocation of qsurf() was missing in start2archive
+- use surfdat_h, ... qsurf was missing in start2archive
 - 'tauscaling' was missing from argument list when calling physdem1
   in testphys1d

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)