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

Timestamp:

Sep 28, 2017, 3:43:23 PM (7 years ago)

Author:

jvatant

Message:

Added the surface methane tank and put it in start files
--JVO

File:

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

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

@@ -162 +162 @@
       real fact2
 
+!     added by JVO for Titan
+      REAL tankCH4(ngridmx)
 
 c sortie visu pour les champs dynamiques
@@ -341 +343 @@
         CALL phyetat0(.true.,ngridmx,llm,fichnom,tab0,Lmodif,nsoilmx,
      .        nqtot,day_ini,time,
-     .        tsurf,tsoil,emis,q2,qsurf)
+     .        tsurf,tsoil,emis,q2,qsurf,tankCH4)
 
         ! copy albedo and soil thermal inertia on (local) physics grid
@@ -1232 +1234 @@
  999  continue
 
-      
+
+c================================================================
+c   Initialisation for methane surface tank (added by JVO 2017)
+c================================================================
+      DO ig=1, ngridmx
+         tankCH4(ig)=2.0
+      ENDDO
 
 c=======================================================================
@@ -1339 +1347 @@
       call physdem1("restartfi.nc",nsoilmx,ngridmx,llm,nqtot,
      &                dtphys,real(day_ini),
-     &                tsurf,tsoil,emis,q2,qsurf)
+     &                tsurf,tsoil,emis,q2,qsurf,tankCH4)
 
 c=======================================================================