Changeset 1530 for trunk/LMDZ.TITAN/libf/phytitan/calchim.F

Timestamp:

Apr 6, 2016, 8:51:34 AM (9 years ago)

Author:

emillour

Message:

Venus and Titan GCMs:
Updates in the physics to keep up with updates in LMDZ5 (up to
LMDZ5 trunk, rev 2350) concerning dynamics/physics separation:

• Adapted makelmdz and makelmdz_fcm script to stop if trying to compile 1d model or newstart or start2archive in parallel.
• got rid of references to "dimensions.h" in physics. Within physics packages, use nbp_lon (=iim), nbp_lat (=jjmp1) and nbp_lev (=llm) from module mod_grid_phy_lmdz (in phy_common) instead. Only partially done for Titan, because of many hard-coded commons; a necessary first step will be to clean these up (using modules).

EM

File:

• trunk/LMDZ.TITAN/libf/phytitan/calchim.F (modified) (3 diffs)

trunk/LMDZ.TITAN/libf/phytitan/calchim.F

@@ -19 +19 @@
       USE comgeomphy,  only: rlatd
       USE moyzon_mod, only: tmoy,playmoy,zlaymoy,zlevmoy,klat
+      use mod_grid_phy_lmdz, only: nbp_lat
       implicit none
-#include "dimensions.h"
 #include "clesphys.h"
-#include "paramet.h"
 #include "YOMCST.h"
 
@@ -105 +104 @@
 c ************************************
 
-        allocate(krpd(15,ND+1,NLRT,jjp1),krate(NLEV,NR),md(NLEV,NC))
+        allocate(krpd(15,ND+1,NLRT,nbp_lat),krate(NLEV,NR),md(NLEV,NC))
 
 c Verification du nombre de composes: coherence common_mod et nqmax-nmicro
@@ -265 +264 @@
 c taux de photodissociations:
 c --------------------------
-        call disso(krpd,jjp1) 
+        call disso(krpd,nbp_lat) 
 
 c reactions chimiques: