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

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

Location:

trunk/LMDZ.MARS/libf/dynphy_lonlat/phymars

Files:

• caldyn0.F (copied) (copied from trunk/LMDZ.MARS/libf/dyn3d/caldyn0.F)
• defrun_new.F (copied) (copied from trunk/LMDZ.MARS/libf/dyn3d/defrun_new.F)
• exner_hyb.F (deleted)
• newstart.F (modified) (3 diffs)
• start2archive.F (modified) (3 diffs)

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

@@ -47 +47 @@
       USE ener_mod, ONLY: etot0,ptot0,ztot0,stot0,ang0
       USE iniphysiq_mod, ONLY: iniphysiq
+      USE exner_hyb_m, ONLY: exner_hyb
 
       implicit none
@@ -129 +130 @@
       REAL :: xpn,xps,xppn(iim),xpps(iim)
       REAL :: p3d(iip1, jjp1, llm+1)
-      REAL :: beta(iip1,jjp1,llm)
 !      REAL dteta(ip1jmp1,llm)
 
@@ -1582 +1582 @@
 c-----------------------------------------------------------------------
 
-      CALL exner_hyb(ip1jmp1, ps, p3d, beta, pks, pk, pkf)
+      CALL exner_hyb(ip1jmp1, ps, p3d, pks, pk, pkf)
 ! Calcul de la temperature potentielle teta
 

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=======================================================================