Changeset 1789 for trunk/LMDZ.TITAN/libf/dynphy_lonlat/phytitan/start2archive.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/start2archive.F (modified) (6 diffs)

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

@@ -80 +80 @@
       INTEGER*4 day_ini_fi
 
+!     added by JVO for methane surface tank
+      REAL tankCH4(ngridmx)
 
 c Variable naturelle / grille scalaire
@@ -91 +93 @@
       REAL emisS(ip1jmp1)
 
+!     added by JVO for methane surface tank
+      REAL tankCH4S(ip1jmp1)
 
 c Variables intermediaires : vent naturel, mais pas coord scalaire
@@ -219 +223 @@
       CALL phyetat0(.true.,ngridmx,llm,fichnom,0,Lmodif,nsoilmx,nqtot,
      .      day_ini_fi,timefi,
-     .      tsurf,tsoil,emis,q2,qsurf)
+     .      tsurf,tsoil,emis,q2,qsurf,tankCH4)
 
 
@@ -310 +314 @@
 c q2 --> q2S
 c qsurf --> qsurfS
+c tankCH4 --> tankCH4S
 c
 c-----------------------------------------------------------------------
@@ -320 +325 @@
       call gr_fi_dyn(llm+1,ngridmx,iip1,jjp1,q2,q2S)
       call gr_fi_dyn(nqtot,ngridmx,iip1,jjp1,qsurf,qsurfS)
+      call gr_fi_dyn(1,ngridmx,iip1,jjp1,tankCH4,tankCH4S)
 
 c=======================================================================
@@ -458 +464 @@
 ! Note: no need to write volcapa, it is stored in "controle" table
 
+c-----------------------------------------------------------------
+c Ecriture du champs  tankCH4
+c-----------------------------------------------------------------
+      call write_archive(nid,ntime,'tankCH4',
+     &         'Depth of surface methane tank','m',2,tankCH4S)
 
 c Fin