Changeset 1246 for trunk/LMDZ.MARS/libf/aeronomars

Timestamp:

May 11, 2014, 2:37:58 PM (11 years ago)

Author:

aslmd

Message:

LMDZ.MARS. Made number of scatterers a free dimension not in need to be prescribe at compiling time. Instead it must be set in callphys.def. See README for further information about this commit.

File:

• trunk/LMDZ.MARS/libf/aeronomars/surfacearea.F (modified) (3 diffs)

trunk/LMDZ.MARS/libf/aeronomars/surfacearea.F

@@ -1 @@
-      subroutine surfacearea(ngrid, nlay, ptimestep,
+      subroutine surfacearea(ngrid, nlay, naerkind, ptimestep,
      $                       pplay, pzlay, 
      $                       pt, pq, pdq, nq, rdust, rice, tau, 
@@ -24 +24 @@
 !#include "tracer.h"
 !#include "dimradmars.h"
-! naerkind is set in scatterers.h (built when compiling with makegcm -s #)
-#include"scatterers.h"
 #include "chimiedata.h"
 !#include "conc.h"
@@ -31 +29 @@
 ! input
 
-      integer,intent(in) :: ngrid, nlay
+      integer,intent(in) :: ngrid, nlay, naerkind
       integer,intent(in) :: nq               ! number of tracers
       real,intent(in) :: ptimestep           ! physics time step (s)