Ignore:
Timestamp:
Dec 14, 2015, 11:43:09 AM (9 years ago)
Author:
Laurent Fairhead
Message:

Merged trunk changes r2298:2396 into testing branch

Location:
LMDZ5/branches/testing
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/branches/testing

  • LMDZ5/branches/testing/libf/phylmd/readaerosolstrato.F90

    r2160 r2408  
    66
    77    USE phys_cal_mod, ONLY : mth_cur
    8     USE mod_grid_phy_lmdz
     8    USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat, klon_glo, &
     9                                 grid2dto1d_glo
    910    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
    1011    USE mod_phys_lmdz_para
     
    1718
    1819    include "YOMCST.h"
    19     include "dimensions.h"
    2020
    2121! Variable input
     
    8585    n_lat = size(latitude)
    8686    print *, 'LAT aerosol strato=', n_lat, latitude
    87     IF (n_lat.NE.jjm+1) THEN
    88        print *,'Le nombre de lat n est pas egal a jjm+1'
     87    IF (n_lat.NE.nbp_lat) THEN
     88       print *,'Le nombre de lat n est pas egal a nbp_lat'
    8989       STOP
    9090    ENDIF
     
    9494    n_lon = size(longitude)
    9595    print *, 'LON aerosol strato=', n_lon, longitude
    96     IF (n_lon.NE.iim) THEN
    97        print *,'Le nombre de lon n est pas egal a iim'
     96    IF (n_lon.NE.nbp_lon) THEN
     97       print *,'Le nombre de lon n est pas egal a nbp_lon'
    9898       STOP
    9999    ENDIF
Note: See TracChangeset for help on using the changeset viewer.