Changeset 1208 for trunk/LMDZ.MARS/libf/phymars/start2archive.F

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/start2archive.F (modified) (6 diffs)

trunk/LMDZ.MARS/libf/phymars/start2archive.F

@@ -67 +67 @@
       REAL tsoil(ngridmx,nsoilmx) ! Soil temperature
       REAL co2ice(ngridmx)      ! CO2 ice layer
+      REAL tauscaling(ngridmx) ! dust conversion factor
       REAL q2(ngridmx,llm+1)
       REAL,ALLOCATABLE :: qsurf(:,:)
@@ -82 +83 @@
       REAL ithS(ip1jmp1,nsoilmx) ! Soil Thermal Inertia
       REAL co2iceS(ip1jmp1)
+      REAL tauscalingS(ip1jmp1)
       REAL q2S(ip1jmp1,llm+1)
       REAL,ALLOCATABLE :: qsurfS(:,:)
@@ -147 +149 @@
 
       CALL phyetat0 (fichnom,0,Lmodif,nsoilmx,ngridmx,llm,nqtot,
-     &      day_ini_fi,timefi,tsurf,tsoil,emis,q2,qsurf,co2ice)
+     &      day_ini_fi,timefi,tsurf,tsoil,emis,q2,qsurf,co2ice,
+     &      tauscaling)
 
        ierr = NF_OPEN (fichnom, NF_NOWRITE,nid1)
@@ -242 +245 @@
 c q2 --> q2S
 c qsurf --> qsurfS
+c tauscaling --> tauscalingS
 c
 c-----------------------------------------------------------------------
@@ -253 +257 @@
       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,tauscaling,tauscalingS)
 
 c=======================================================================
@@ -341 +346 @@
       call write_archive(nid,ntime,'co2ice','couche de glace co2',
      &  'kg/m2',2,co2iceS)
+      call write_archive(nid,ntime,'tauscaling',
+     &  'dust conversion factor',' ',2,tauscalingS)
       call write_archive(nid,ntime,'emis','grd emis',' ',2,emisS)
       call write_archive(nid,ntime,'ps','Psurf','Pa',2,ps)