Changeset 1246 for trunk/LMDZ.MARS/libf/phymars/simpleclouds.F

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/phymars/simpleclouds.F (modified) (2 diffs)

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

@@ -6 +6 @@
       use tracer_mod, only: igcm_h2o_vap, igcm_h2o_ice
       USE comcstfi_h
+      use dimradmars_mod, only: naerkind
       implicit none
 c------------------------------------------------------------------
@@ -36 +37 @@
 !#include "comgeomfi.h"
 !#include "dimradmars.h"
-! naerkind is set in scatterers.h (built when compiling with makegcm -s #)
-#include"scatterers.h"
 
 c------------------------------------------------------------------