Changeset 334 for trunk/LMDZ.MARS/libf/dyn3d

Timestamp:

Oct 28, 2011, 5:00:48 PM (14 years ago)

Author:

aslmd

Message:

LMDZ.MARS:

28/10/11 == FL + AS

ADDED THE NEW FRAMEWORK FOR PHOTOCHEMISTRY
This is not the last version. A new rewritten version of calchim.F [using LAPACK] is yet to be committed.
--> A new version for photochemistry routines : *_B.F no longer exists, new routines in aeronomars
D 333 libf/aeronomars/photochemist_B.F
D 333 libf/aeronomars/init_chimie_B.F
A 0 libf/aeronomars/read_phototable.F
M 333 libf/aeronomars/calchim.F
A 0 libf/aeronomars/photochemistry.F
M 333 libf/aeronomars/chimiedata.h
--> Changed calls to calchim and watercloud [surfdust and surfice needed] in physiq.F
--> Left commented code for outputs in physiq.F [search for FL]
--> Added settings which works for 35 levels in inidissip.F according to FL. Commented for the moment.
--> Checked compilation and run, looks fine. Note that 'jmars.20101220' is needed.

File:

• trunk/LMDZ.MARS/libf/dyn3d/inidissip.F (modified) (1 diff)

trunk/LMDZ.MARS/libf/dyn3d/inidissip.F

@@ -62 +62 @@
              delta=30.! Intervalle (km) pour le changement mid /up
          end if
+
+         !!!!! reglages 35 niveaux FL
+         !fac_mid=3
+         !fac_up=30
+         !startalt=70.
+         !delta=20.
+         !!!! avec dans run.def
+         !!- mode_sponge=3
+         !!- idissip/tetagdiv/tetagrot/tetagtemp = 1/2000/3000/3000
+
          middle=startalt+delta/2
          write(*,*) 'Dissipation : '