Changeset 2787 for LMDZ5/branches/testing/libf/phylmd/iophys.F90

Timestamp:

Jan 30, 2017, 5:54:45 PM (8 years ago)

Author:

Laurent Fairhead

Message:

Merged trunk changes r2727:2785 into testing branch

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phylmd/iophys.F90 (modified) (4 diffs)

LMDZ5/branches/testing/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_phys_lmdz_transfert_para, ONLY: gather
+      USE mod_grid_phy_lmdz, ONLY: klon_glo, nbp_lon, nbp_lat, grid1dto2d_glo
       IMPLICIT NONE
 
@@ -39 +40 @@
 !=================================================================
 
-#include "dimensions.h"
-#include "paramet.h"
-#include "netcdf.inc"
-#include "iotd.h"
-
 
 ! Arguments on input:
@@ -52 +48 @@
       real px(klon_omp,lllm)
       real xglo(klon_glo,lllm)
-      real zx(iim,jjp1,lllm)
+      real zx(nbp_lon,nbp_lat,lllm)
 
 
@@ -68 +64 @@
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
       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