Changeset 2733 for LMDZ5/trunk/libf/phylmd

Timestamp:

Dec 15, 2016, 10:24:26 AM (8 years ago)

Author:

Ehouarn Millour

Message:

Removing unnecessary references to files in the dynamics from the physics:

• phys_output_write_mod: use infotrac_phy, not infotrac.
• iophys: global grid sizes iim and jjp1 are nbp_lon and nbp_lat, from module mod_grid_phy_lmdz.

EM

Location:

LMDZ5/trunk/libf/phylmd

Files:

• iophys.F90 (modified) (4 diffs)
• phys_output_write_mod.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/iophys.F90

@@ -1 +1 @@
       subroutine iophys_ecrit(nom,lllm,titre,unite,px)
-      USE dimphy
-      USE mod_phys_lmdz_para
-      USE mod_grid_phy_lmdz
+
+      USE mod_phys_lmdz_para, ONLY: klon_omp, is_mpi_root
+      USE mod_grid_phy_lmdz, ONLY: klon_glo, nbp_lon, nbp_lat
       IMPLICIT NONE
 
@@ -39 +39 @@
 !=================================================================
 
-#include "dimensions.h"
-#include "paramet.h"
-#include "netcdf.inc"
-#include "iotd.h"
-
 
 ! Arguments on input:
@@ -52 +47 @@
       real px(klon_omp,lllm)
       real xglo(klon_glo,lllm)
-      real zx(iim,jjp1,lllm)
+      real zx(nbp_lon,nbp_lat,lllm)
 
 
@@ -68 +63 @@
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
       SUBROUTINE iophys_ini
-      USE mod_phys_lmdz_para
+      USE mod_phys_lmdz_para, ONLY: is_mpi_root
       USE vertical_layers_mod, ONLY: presnivs
       USE regular_lonlat_mod, ONLY: lon_reg, lat_reg

LMDZ5/trunk/libf/phylmd/phys_output_write_mod.F90

@@ -25 +25 @@
 
     USE dimphy, ONLY: klon, klev, klevp1
-    USE infotrac, ONLY: nbtr
+    USE infotrac_phy, ONLY: nbtr
     USE mod_phys_lmdz_para, ONLY: is_north_pole_phy,is_south_pole_phy
     USE mod_grid_phy_lmdz, ONLY : nbp_lon, nbp_lat