Changeset 2167 for trunk/LMDZ.MARS/libf/dynphy_lonlat/phymars/start2archive.F

Timestamp:

Oct 9, 2019, 9:19:41 AM (5 years ago)

Author:

emillour

Message:

Mars GCM:
Big cleanup: remove obsolete compilation scripts (makgcm_*) and dynamical core
(since the one in LMDZ.COMMON should be used instead).
EM

File:

• trunk/LMDZ.MARS/libf/dynphy_lonlat/phymars/start2archive.F (modified) (3 diffs)

trunk/LMDZ.MARS/libf/dynphy_lonlat/phymars/start2archive.F

@@ -32 +32 @@
       USE iniphysiq_mod, ONLY: iniphysiq
       USE phyetat0_mod, ONLY: phyetat0
+      USE exner_hyb_m, ONLY: exner_hyb
       implicit none
 
@@ -53 +54 @@
       REAL pk(ip1jmp1,llm)
       REAL pkf(ip1jmp1,llm)
-      REAL beta(iip1,jjp1,llm)
       REAL phis(ip1jmp1)                     ! geopotentiel au sol
       REAL masse(ip1jmp1,llm)                ! masse de l'atmosphere
@@ -206 +206 @@
 
       CALL pression(ip1jmp1, ap, bp, ps, p3d)
-      call exner_hyb(ip1jmp1, ps, p3d, beta, pks, pk, pkf)
+      call exner_hyb(ip1jmp1, ps, p3d, pks, pk, pkf)
 
 c=======================================================================