Changeset 2643 for LMDZ5/trunk/libf/dynphy_lonlat/phydev/callphysiq_mod.F90

Timestamp:

Oct 2, 2016, 6:28:02 PM (8 years ago)

Author:

Ehouarn Millour

Message:

• move iophys.F90 to phylmd since it depends on files there (with some modifications, iophys.F90 could be made generic enough to be in phy_common).
• some adaptations to make phydev XIOS2 compliant.

EM

File:

• LMDZ5/trunk/libf/dynphy_lonlat/phydev/callphysiq_mod.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/dynphy_lonlat/phydev/callphysiq_mod.F90

@@ -12 +12 @@
                        jD_cur,jH_cur_split,zdt_split,                     &
                        zplev_omp,zplay_omp,                               &
-                       zphi_omp,zphis_omp,                                &
+                       zpk_omp,zphi_omp,zphis_omp,                        &
                        presnivs_omp,                                      &
                        zufi_omp,zvfi_omp,zrfi_omp,ztfi_omp,zqfi_omp,      &
@@ -34 +34 @@
   REAL,INTENT(IN) :: zplev_omp(klon,llm+1) ! interlayer pressure (Pa)
   REAL,INTENT(IN) :: zplay_omp(klon,llm) ! mid-layer pressure (Pa)
+  REAL,INTENT(IN) :: zpk_omp(klon,llm) ! Exner function
   REAL,INTENT(IN) :: zphi_omp(klon,llm) ! geopotential at midlayer
   REAL,INTENT(IN) :: zphis_omp(klon) ! surface geopotential