Changeset 1576 for trunk/LMDZ.MARS/libf/phymars

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.MARS/libf/phymars

Files:

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

trunk/LMDZ.MARS/libf/phymars/dyn1d/testphys1d.F

@@ -109 +109 @@
       INTEGER ierr, aslun
       REAL tmp1(0:nlayer),tmp2(0:nlayer)
-      Logical  tracerdyn
       integer :: nq=1 ! number of tracers
       real :: latitude(1), longitude(1), cell_area(1)
@@ -753 +752 @@
      ,     w,
 C - outputs
-     s     du, dv, dtemp, dq,dpsurf,tracerdyn)
+     s     du, dv, dtemp, dq,dpsurf)
 !      write(*,*) "testphys1d apres q", q(1,:)
 

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

@@ -12 +12 @@
      $            ,pu,pv,pt,pq
      $            ,flxw
-     $            ,pdu,pdv,pdt,pdq,pdpsrf,tracerdyn)
+     $            ,pdu,pdv,pdt,pdq,pdpsrf)
 
       use tracer_mod, only: noms, mmol, igcm_co2, igcm_n2,
@@ -146 +146 @@
 c    pdq(ngrid,nlayer,nq)    |
 c    pdpsrf(ngrid)           |
-c    tracerdyn                 call tracer in dynamical part of GCM ?
 
 c
@@ -191 +190 @@
       REAL,INTENT(out) :: pdq(ngrid,nlayer,nq) ! tracer tendencies (../kg/s)
       REAL,INTENT(out) :: pdpsrf(ngrid) ! surface pressure tendency (Pa/s)
-      LOGICAL,INTENT(out) :: tracerdyn ! signal to the dynamics to advect tracers or not
 
 
@@ -434 +432 @@
 c        initialize tracers
 c        ~~~~~~~~~~~~~~~~~~
-         tracerdyn=tracer
          IF (tracer) THEN
             CALL initracer(ngrid,nq,qsurf)