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

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/dynphy_lonlat

Files:

• calfis.F (modified) (4 diffs)
• phymars/callphysiq_mod.F90 (modified) (3 diffs)

trunk/LMDZ.MARS/libf/dynphy_lonlat/calfis.F

@@ -2 +2 @@
      $            pucov,pvcov,pteta,pq,pmasse,pps,pp,ppk,pphis,pphi,
      $            pducov,pdvcov,pdteta,pdq,pw,
-     $            pdufi,pdvfi,pdhfi,pdqfi,pdpsfi,tracer )
+     $            pdufi,pdvfi,pdhfi,pdqfi,pdpsfi )
 c
 c    Auteur :  P. Le Van, F. Hourdin 
@@ -56 +56 @@
 c        pdtsfi         tendency for the surface temperature
 c
-c        tracer         Call tracer in  gcm.F ? (decided in callphys.def)
-c
 c=======================================================================
 c
@@ -103 +101 @@
       REAL pdqfi(iip1,jjp1,llm,nq)
       REAL pdpsfi(iip1,jjp1)
-      logical tracer
 
 c    Local variables :
@@ -437 +434 @@
      ,     flxwfi,
 C - sorties
-     s     zdufi, zdvfi, zdtfi, zdqfi,zdpsrf,tracer)
+     s     zdufi, zdvfi, zdtfi, zdqfi,zdpsrf)
 
 

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