Changeset 2733


Ignore:
Timestamp:
Dec 15, 2016, 10:24:26 AM (7 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:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/iophys.F90

    r2643 r2733  
    11      subroutine iophys_ecrit(nom,lllm,titre,unite,px)
    2       USE dimphy
    3       USE mod_phys_lmdz_para
    4       USE mod_grid_phy_lmdz
     2
     3      USE mod_phys_lmdz_para, ONLY: klon_omp, is_mpi_root
     4      USE mod_grid_phy_lmdz, ONLY: klon_glo, nbp_lon, nbp_lat
    55      IMPLICIT NONE
    66
    … …  
    3939!=================================================================
    4040
    41 #include "dimensions.h"
    42 #include "paramet.h"
    43 #include "netcdf.inc"
    44 #include "iotd.h"
    45 
    4641
    4742! Arguments on input:
    … …  
    5247      real px(klon_omp,lllm)
    5348      real xglo(klon_glo,lllm)
    54       real zx(iim,jjp1,lllm)
     49      real zx(nbp_lon,nbp_lat,lllm)
    5550
    5651
    … …  
    6863!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    6964      SUBROUTINE iophys_ini
    70       USE mod_phys_lmdz_para
     65      USE mod_phys_lmdz_para, ONLY: is_mpi_root
    7166      USE vertical_layers_mod, ONLY: presnivs
    7267      USE regular_lonlat_mod, ONLY: lon_reg, lat_reg

  • LMDZ5/trunk/libf/phylmd/phys_output_write_mod.F90

    r2704 r2733  
    2525
    2626    USE dimphy, ONLY: klon, klev, klevp1
    27     USE infotrac, ONLY: nbtr
     27    USE infotrac_phy, ONLY: nbtr
    2828    USE mod_phys_lmdz_para, ONLY: is_north_pole_phy,is_south_pole_phy
    2929    USE mod_grid_phy_lmdz, ONLY : nbp_lon, nbp_lat
Note: See TracChangeset for help on using the changeset viewer.