Changeset 2345 for LMDZ5/trunk/libf/phylmd/rrtm

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:

• readaerosolstrato_rrtm.F90 (modified) (4 diffs)
• suphec.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/rrtm/readaerosolstrato_rrtm.F90

@@ -9 +9 @@
 
     USE phys_cal_mod, ONLY : mth_cur
-    USE mod_grid_phy_lmdz
+    USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat, klon_glo, grid2dTo1d_glo
     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
     USE mod_phys_lmdz_para 
@@ -21 +21 @@
 
     include "YOMCST.h"
-    include "dimensions.h"
 
 ! Variable input
@@ -103 +102 @@
     n_lat = size(latitude)
     print *, 'LAT aerosol strato=', n_lat, latitude
-    IF (n_lat.NE.jjm+1) THEN 
-       print *,'Le nombre de lat n est pas egal a jjm+1'
+    IF (n_lat.NE.nbp_lat) THEN 
+       print *,'Le nombre de lat n est pas egal a nbp_lat'
        STOP
     ENDIF
@@ -112 +111 @@
     n_lon = size(longitude)
     print *, 'LON aerosol strato=', n_lon, longitude
-    IF (n_lon.NE.iim) THEN 
-       print *,'Le nombre de lon n est pas egal a iim'
+    IF (n_lon.NE.nbp_lon) THEN 
+       print *,'Le nombre de lon n est pas egal a nbp_lon'
        STOP
     ENDIF

LMDZ5/trunk/libf/phylmd/rrtm/suphec.F90

@@ -115 +115 @@
 #include "suvdfs.intfb.h"
 #include "suwcou.intfb.h"
-#include "dimensions.h"
 
 !     ------------------------------------------------------------------