Changeset 1807

Timestamp:

Oct 20, 2017, 11:24:49 AM (7 years ago)

Author:

bclmd

Message:

Adding chemistry initialization for newstart

File:

• trunk/LMDZ.GENERIC/libf/dynphy_lonlat/phystd/newstart.F (modified) (2 diffs)

trunk/LMDZ.GENERIC/libf/dynphy_lonlat/phystd/newstart.F

@@ -616 +616 @@
       write(*,*) 'slab_ocean_0 : initialisation of slab 
      $ocean variables'
+      write(*,*) 'chemistry_ini : initialisation of chemical profiles'
 
         write(*,*)
@@ -1525 +1526 @@
 
 
+c       chemistry_initialisation
+c       ------------------------------------------------
+        else if (trim(modif) .eq. 'chemistry_ini') then
+        write(*,*)'OK: initialisation of chemical profiles'
+
+
+          call inichim_newstart(ngridmx, nqtot, q, qsurf, ps,
+     &                          1, 0)
+
+         ! We want to have the very same value at lon -180 and lon 180
+          do l = 1,llm
+             do j = 1,jjp1
+                do iq = 1,nqtot
+                   q(iip1,j,l,iq) = q(1,j,l,iq)
+                end do
+             end do
+          end do
+
 
         else