Changeset 2418 for LMDZ5/trunk/libf/phydev

Timestamp:

Jan 3, 2016, 11:16:34 AM (10 years ago)

Author:

Ehouarn Millour

Message:

Improving the physics/dynamics interface:

• added module callphysiq_mod.F90 in dynphy_lonlat/phy* which contains the routine "call_physiq" which is called by calfis* and calls the physics. This way different "physiq" routine from different physics packages may be called: The calfis* routines now exposes all available fields that might be transmitted to physiq but which is actually send (ie: expected/needed by physiq) is decided in call_physiq.
• turned "physiq.F90" into module "physiq_mod.F90" for better control of "physiq" arguments. Extracted embeded "gr_fi_ecrit" as self-standing routine (but note that this routine actually only works in serial mode).

EM

File:

• LMDZ5/trunk/libf/phydev/physiq_mod.F90 (moved) (moved from LMDZ5/trunk/libf/phydev/physiq.F90) (3 diffs)

LMDZ5/trunk/libf/phydev/physiq_mod.F90

@@ -1 +1 @@
 ! $Id: physiq.F 1565 2011-08-31 12:53:29Z jghattas $
-!#define IO_DEBUG
+MODULE physiq_mod
+
+IMPLICIT NONE
+
+CONTAINS
 
       SUBROUTINE physiq (nlon,nlev, &
      &            debut,lafin,jD_cur, jH_cur,pdtphys, &
      &            paprs,pplay,pphi,pphis,presnivs, &
-     &            u,v,rot,t,qx, &
+     &            u,v,t,qx, &
      &            flxmass_w, &
-     &            d_u, d_v, d_t, d_qx, d_ps &
-     &            , dudyn)
+     &            d_u, d_v, d_t, d_qx, d_ps)
 
       USE dimphy, only : klon,klev
@@ -52 +55 @@
       real,intent(out) :: d_qx(klon,klev,nqtot) ! physics tendency on tracers
       real,intent(out) :: d_ps(klon) ! physics tendency on surface pressure
-      real,intent(in) :: dudyn(nbp_lon+1,nbp_lat,klev) ! Not used
-      REAL, intent(in):: rot(klon, klev) ! Not used
-      ! relative vorticity, in s-1, needed for frontal waves 
 
 integer,save :: itau=0 ! counter to count number of calls to physics
@@ -200 +200 @@
 
 end subroutine physiq
+
+END MODULE physiq_mod