Changeset 471 for trunk/LMDZ.GENERIC/libf/phystd/condense_cloud.F90

Timestamp:

Dec 13, 2011, 11:57:59 PM (13 years ago)

Author:

aslmd

Message:

LMDZ.GENERIC

13/12/2011 == AS

• Same spirit as previous commit, but for ngasmx which is now read in gases.def -- before arrays w/ dim ngasmx are allocated dynamically
• Allocation is done in su_gases.F90 which is called in inifis
• Outside su_gases.F90, very few modifications to the code : the new module "gases_h.F90" simply replaces the old common "gases.h" !
• Compiles fine. Tested with debugging options through pgdbg. Runs fine. Exact same results in Early Mars test case.

File:

• trunk/LMDZ.GENERIC/libf/phystd/condense_cloud.F90 (modified) (2 diffs)

trunk/LMDZ.GENERIC/libf/phystd/condense_cloud.F90

@@ -7 +7 @@
 
       use radinc_h, only : naerkind
+      use gases_h
 
       implicit none
@@ -56 +57 @@
 #include "callkeys.h"
 #include "tracer.h"
-#include "gases.h"
 
 !-----------------------------------------------------------------------