Changeset 1208 for trunk/LMDZ.MARS/libf/phymars/phyredem.F90

Timestamp:

Mar 12, 2014, 4:30:18 PM (11 years ago)

Author:

tnavarro

Message:

added tauscaling in startfi + moved start_archive routines from dyn3d to phymars

File:

• trunk/LMDZ.MARS/libf/phymars/phyredem.F90 (modified) (3 diffs)

trunk/LMDZ.MARS/libf/phymars/phyredem.F90

@@ -143 +143 @@
 
 subroutine physdem1(filename,nsoil,ngrid,nlay,nq, &
-                    phystep,time,tsurf,tsoil,co2ice,emis,q2,qsurf)
+                    phystep,time,tsurf,tsoil,co2ice,emis,q2,qsurf,&
+                    tauscaling)
   ! write time-dependent variable to restart file
   use iostart, only : open_restartphy, close_restartphy, & 
@@ -162 +163 @@
   real,intent(in) :: q2(ngrid,nlay+1)
   real,intent(in) :: qsurf(ngrid,nq)
+  real,intent(in) :: tauscaling(ngrid)
   
   integer :: iq
@@ -192 +194 @@
   call put_field("q2","pbl wind variance",q2,time)
   
+  ! Dust conversion factor
+  ! Only to be read by newstart to convert to actual dust values
+  ! Or by any user who wants to reconstruct dust, opacity from the start files.
+  call put_field("tauscaling","dust conversion factor",tauscaling,time)
+
   ! Tracers on the surface
   ! preliminary stuff: look for water vapour & water ice tracers (if any)