Changeset 1576 for trunk/LMDZ.GENERIC/libf/phystd

Timestamp:

Jul 27, 2016, 11:14:41 AM (9 years ago)

Author:

emillour

Message:

All models:
Clean up the dynamics/physics interface to converge with LMDZ5;
get rid of tracerdyn parameter (which was supposed to send information
about wether tracers should be advected or not in the Mars and Generic
models).
EM

Location:

trunk/LMDZ.GENERIC/libf/phystd

Files:

• dyn1d/rcm1d.F (modified) (2 diffs)
• physiq_mod.F90 (modified) (4 diffs)

trunk/LMDZ.GENERIC/libf/phystd/dyn1d/rcm1d.F

@@ -108 +108 @@
       INTEGER ierr, aslun
       REAL tmp1(0:llm),tmp2(0:llm)
-      Logical  tracerdyn
       integer :: nq !=1 ! number of tracers
  
@@ -906 +905 @@
      ,     w,
 C - sorties
-     s     du, dv, dtemp, dq,dpsurf,tracerdyn)
+     s     du, dv, dtemp, dq,dpsurf)
 
 

trunk/LMDZ.GENERIC/libf/phystd/physiq_mod.F90

@@ -12 +12 @@
                   pu,pv,pt,pq,             &
                   flxw,                    &
-                  pdu,pdv,pdt,pdq,pdpsrf,tracerdyn)
+                  pdu,pdv,pdt,pdq,pdpsrf)
  
       use radinc_h, only : L_NSPECTI,L_NSPECTV,naerkind
@@ -132 +132 @@
 !    pdq(ngrid,nlayer)        /
 !    pdpsrf(ngrid)             /
-!    tracerdyn                 call tracer in dynamical part of GCM ?
 !
 !
@@ -195 +194 @@
       real,intent(out) :: pdq(ngrid,nlayer,nq) ! Tracer tendencies (kg/kg_of_air/s).
       real,intent(out) :: pdpsrf(ngrid)        ! Surface pressure tendency (Pa/s).
-      logical,intent(out) :: tracerdyn         ! Signal to the dynamics to advect tracers or not.     
 
 ! Local saved variables:
@@ -517 +515 @@
 !        Initialize tracer names, indexes and properties.
 !        ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-         tracerdyn=tracer
          IF (.NOT.ALLOCATED(noms)) ALLOCATE(noms(nq)) ! (because noms is an argument of physdem1 whether or not tracer is on)
          if (tracer) then