Changeset 664 for trunk/LMDZ.MARS/libf/dyn3d

Timestamp:

May 23, 2012, 9:20:24 AM (13 years ago)

Author:

flefevre

Message:

ensure that initial values of chemical species are identical at
longitudes -180 and 180.

File:

• trunk/LMDZ.MARS/libf/dyn3d/newstart.F (modified) (2 diffs)

trunk/LMDZ.MARS/libf/dyn3d/newstart.F

@@ -849 +849 @@
           
           call inichim_newstart(q, qsurf, ps, flagh2o, flagthermo)
+
+         ! 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,nqmx
+                   q(iip1,j,l,iq) = q(1,j,l,iq)
+                end do
+             end do
+          end do
+
           write(*,*) 'inichim_newstart: chemical species and
      $ water vapour initialised'
 
-
-c       ini_q-h2o : as above exept for the water vapour tracer 
+c       ini_q-h2o : as above except for the water vapour tracer 
 c       ------------------------------------------------------
         else if (trim(modif) .eq. 'ini_q-h2o') then
@@ -872 +881 @@
             enddo
           endif
+
           call inichim_newstart(q, qsurf, ps, flagh2o, flagthermo)
+
+         ! 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,nqmx
+                   q(iip1,j,l,iq) = q(1,j,l,iq)
+                end do
+             end do
+          end do
+
           write(*,*) 'inichim_newstart: chemical species initialised
      $ (except water vapour)'
-
 
 c      wetstart : wet atmosphere with a north to south gradient