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

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/dynphy_lonlat/phymars/callphysiq_mod.F90 (modified) (3 diffs)

trunk/LMDZ.MARS/libf/dynphy_lonlat/phymars/callphysiq_mod.F90

@@ -16 +16 @@
                        zufi_omp,zvfi_omp,zrfi_omp,ztfi_omp,zqfi_omp,      &
                        flxwfi_omp,pducov,                                 &
-                       zdufi_omp,zdvfi_omp,zdtfi_omp,zdqfi_omp,zdpsrf_omp,&
-                       tracerdyn)
+                       zdufi_omp,zdvfi_omp,zdtfi_omp,zdqfi_omp,zdpsrf_omp)
 
   USE control_mod, ONLY: planet_type
@@ -52 +51 @@
   REAL,INTENT(OUT) :: zdqfi_omp(klon,llm,nqtot) ! tendency on tracers
   REAL,INTENT(OUT) :: zdpsrf_omp(klon) ! tendency on surface pressure
-  LOGICAL,INTENT(OUT) :: tracerdyn
 
   ! Local variables
@@ -89 +87 @@
               zdtfi_omp,      & ! pdt
               zdqfi_omp,      & ! pdq
-              zdpsrf_omp,     & ! pdpsrf
-              tracerdyn)        ! tracerdyn (somewhat obsolete)
+              zdpsrf_omp)       ! pdpsrf