Changeset 2733 for LMDZ5/trunk/libf/phylmd/iophys.F90

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

File:

• LMDZ5/trunk/libf/phylmd/iophys.F90 (modified) (4 diffs)

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