Changeset 1401 for trunk/LMDZ.COMMON/libf/dyn3d_common

Timestamp:

Mar 23, 2015, 9:21:11 AM (10 years ago)

Author:

emillour

Message:

Common dynamics:

• diagedyn should use Cp(T) provided by the dynamics, not the physics. Note that diagedyn is probaly bugged (claim from LMDZ5 Earth model) and is required to someday be cleaned up and validated (any volunteers?).

EM

File:

• trunk/LMDZ.COMMON/libf/dyn3d_common/diagedyn.F (modified) (2 diffs)

trunk/LMDZ.COMMON/libf/dyn3d_common/diagedyn.F

@@ -53 +53 @@
 c======================================================================
  
-      USE cpdet_phy_mod, ONLY: cpdet,tpot2t
+      USE cpdet_mod, ONLY: cpdet,tpot2t
 
       IMPLICIT NONE
@@ -62 +62 @@
 #include "iniprint.h"
 
-#ifdef CPP_EARTH
-#include "../phylmd/YOMCST.h"
-#include "../phylmd/YOETHF.h"
-#endif
+!#ifdef CPP_EARTH
+!#include "../phylmd/YOMCST.h"
+!#include "../phylmd/YOETHF.h"
+!#endif
 C
       INTEGER imjmp1