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

Timestamp:

Jul 27, 2016, 11:14:41 AM (8 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

File:

• trunk/LMDZ.MARS/libf/phymars/dyn1d/testphys1d.F (modified) (2 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,:)