Changeset 118 for trunk/mars/libf/phymars

Timestamp:

May 12, 2011, 9:27:42 PM (14 years ago)

Author:

aslmd

Message:

LMD_MM_MARS: ajout mars_lmd_new_storm avec routines modifiees par J. Faure (stage M2). modification makemeso et runmeso avec ajout d une option -s qui permet de preciser un scenario base sur une physique legerement differente comme par exemple storm. ceci cree un nouveau dossier de compilation dont le nom commence par le nom du scenario.

Location:

trunk/mars/libf/phymars

Files:

• callradite.F (modified) (1 diff)
• dimradmars.h (modified) (1 diff)

trunk/mars/libf/phymars/callradite.F

@@ -266 +266 @@
           name_iaer(1) = "dust_doubleq"
 cc        name_iaer(2) = "dust_submicron" !! JB: experimental
-          name_iaer(2) = "h2o_ice"
+c          name_iaer(2) = "h2o_ice"
 c        ----------------------------------------------------------
 

trunk/mars/libf/phymars/dimradmars.h

@@ -27 +27 @@
 ! (ex: naerkind=2 if you use one dust mode and active ice ...)
       integer naerkind
-!      parameter (naerkind=1)
-      parameter (naerkind=2)
+      parameter (naerkind=1)
+!      parameter (naerkind=2)
 
 ! Reference wavelengths used to compute reference optical depth (m)