Changeset 1530 for trunk/LMDZ.TITAN/libf/phytitan/ajsec.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/ajsec.F (modified) (4 diffs)

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

@@ -7 +7 @@
 
       use dimphy
+      use mod_grid_phy_lmdz, only: nbp_lev
       use cpdet_mod, only: t2tpot, tpot2t
       IMPLICIT none
@@ -27 +28 @@
 c d_qfi-----output-R-Incrementation des traceurs
 c======================================================================
-#include "dimensions.h"
 #include "YOMCST.h"
       REAL paprs(klon,klev+1), pplay(klon,klev)
@@ -66 +66 @@
 c------------------------------------- passage en temperature potentielle
 ! ADAPTATION GCM POUR CP(T)
-      call t2tpot(klon*llm,tfi,zh,ppk)
+      call t2tpot(klon*nbp_lev,tfi,zh,ppk)
 c
       DO k = limbas, limhau
@@ -168 +168 @@
 c------------------------------------- et calcul du d_t 
 ! ADAPTATION GCM POUR CP(T)
-      call tpot2t(klon*llm,zh,zt,ppk)
+      call tpot2t(klon*nbp_lev,zh,zt,ppk)
 
       DO k = limbas, limhau