Changeset 2366 for trunk/LMDZ.TITAN/libf/dynphy_lonlat/phytitan/newstart.F

Timestamp:

Jun 11, 2020, 7:40:22 PM (5 years ago)

Author:

jvatant

Message:

Titan GCM : Major maintenance catching up commits from the generic including :

• r2356 and 2354 removing obsolete old dynamical core
• various minor addition to physics and gestion of phys_state_var_mode, especially in dyn1d
• adding MESOSCALE CPP keys around chemistry and microphysics (disabled in mesoscale for now)

File:

• trunk/LMDZ.TITAN/libf/dynphy_lonlat/phytitan/newstart.F (modified) (4 diffs)

trunk/LMDZ.TITAN/libf/dynphy_lonlat/phytitan/newstart.F

@@ -39 +39 @@
       use iniphysiq_mod, only: iniphysiq
       use phyetat0_mod, only: phyetat0
+      use exner_hyb_m, only: exner_hyb
       use tracer_h
       implicit none
@@ -125 +126 @@
       REAL :: xpn,xps,xppn(iim),xpps(iim)
       REAL :: p3d(iip1, jjp1, llm+1)
-      REAL :: beta(iip1,jjp1,llm)
 !      REAL dteta(ip1jmp1,llm)
 
@@ -542 +542 @@
      &   date,tsurf,tsoil,emis,q2,
      &   t,ucov,vcov,ps,teta,phisold_newgrid,
-     &   q,qsurf,surfith,nid)
+     &   q,qsurf,tankCH4,surfith,nid)
         write(*,*) "OK, read start_archive file"
         ! copy soil thermal inertia
@@ -1120 +1120 @@
 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