Ignore:
Timestamp:
Aug 21, 2015, 11:57:36 AM (9 years ago)
Author:
Ehouarn Millour
Message:

Physics/dynamics separation:

  • move test_disvert_m to dynlonlat_phylonlat/phylmd since it is only used by ce0l and relies on dynamics.
  • put "config_inca" in tracinca_mod so physics routines can get the info from there rather than from control_mod.
  • get rid of references to "control_mod" from within the physics.

EM

Location:
LMDZ5/trunk/libf/phylmd/rrtm
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/phylmd/rrtm/readaerosolstrato_rrtm.F90

    r2231 r2345  
    99
    1010    USE phys_cal_mod, ONLY : mth_cur
    11     USE mod_grid_phy_lmdz
     11    USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat, klon_glo, grid2dTo1d_glo
    1212    USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
    1313    USE mod_phys_lmdz_para
     
    2121
    2222    include "YOMCST.h"
    23     include "dimensions.h"
    2423
    2524! Variable input
     
    103102    n_lat = size(latitude)
    104103    print *, 'LAT aerosol strato=', n_lat, latitude
    105     IF (n_lat.NE.jjm+1) THEN
    106        print *,'Le nombre de lat n est pas egal a jjm+1'
     104    IF (n_lat.NE.nbp_lat) THEN
     105       print *,'Le nombre de lat n est pas egal a nbp_lat'
    107106       STOP
    108107    ENDIF
     
    112111    n_lon = size(longitude)
    113112    print *, 'LON aerosol strato=', n_lon, longitude
    114     IF (n_lon.NE.iim) THEN
    115        print *,'Le nombre de lon n est pas egal a iim'
     113    IF (n_lon.NE.nbp_lon) THEN
     114       print *,'Le nombre de lon n est pas egal a nbp_lon'
    116115       STOP
    117116    ENDIF
  • LMDZ5/trunk/libf/phylmd/rrtm/suphec.F90

    r2315 r2345  
    115115#include "suvdfs.intfb.h"
    116116#include "suwcou.intfb.h"
    117 #include "dimensions.h"
    118117
    119118!     ------------------------------------------------------------------
Note: See TracChangeset for help on using the changeset viewer.