Changeset 1789 for trunk/LMDZ.TITAN/libf/phytitan/phyredem.F90

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/phytitan/phyredem.F90 (modified) (3 diffs)

trunk/LMDZ.TITAN/libf/phytitan/phyredem.F90

@@ -135 +135 @@
 
 subroutine physdem1(filename,nsoil,ngrid,nlay,nq, &
-                    phystep,time,tsurf,tsoil,emis,q2,qsurf)
+                    phystep,time,tsurf,tsoil,emis,q2,qsurf,tankCH4)
   ! write time-dependent variable to restart file
   use iostart, only : open_restartphy, close_restartphy, & 
@@ -155 +155 @@
   real,intent(in) :: q2(ngrid,nlay+1)
   real,intent(in) :: qsurf(ngrid,nq)
+  real,intent(in) :: tankCH4(ngrid)
 
   integer :: iq
@@ -176 +177 @@
   ! Planetary Boundary Layer
   call put_field("q2","pbl wind variance",q2)
+
+  ! Methane tank depth
+  call put_field("tankCH4","Depth of methane tank",tankCH4)
   
 ! tracers