Changeset 1783 for trunk/LMDZ.GENERIC/libf/dynphy_lonlat/phystd/newstart.F

Timestamp:

Sep 14, 2017, 8:31:56 PM (7 years ago)

Author:

mturbet

Message:

add new option in newstart

File:

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

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

@@ -588 +588 @@
       write(*,*) 'q=0 : ALL tracer =zero'
       write(*,*) 'q=x : give a specific uniform value to one tracer'
+      write(*,*) 'qs=x : give a uniform value to a surface tracer'
       write(*,*) 'q=profile    : specify a profile for a tracer'
 !      write(*,*) 'ini_q : tracers initialisation for chemistry, water an
@@ -951 +952 @@
                ENDDO
              ENDDO
+             write(*,*) 'SURFACE value of tracer ',trim(tname(iq)),
+     &                   ' ? (kg/m2)'
+             read(*,*) val
+             DO ig=1,ngridmx
+                 qsurf(ig,iq)=val
+             ENDDO
+             
+c       qs=x : initialise surface tracer manually 
+c       --------------------------------
+        else if (trim(modif).eq.'qs=x') then
+             write(*,*) 'Which tracer do you want to modify ?'
+             do iq=1,nqtot
+               write(*,*)iq,' : ',trim(tname(iq))
+             enddo
+             write(*,*) '(choose between 1 and ',nqtot,')'
+             read(*,*) iq 
              write(*,*) 'SURFACE value of tracer ',trim(tname(iq)),
      &                   ' ? (kg/m2)'