Ignore:
Timestamp:
Aug 21, 2015, 5:13:46 PM (9 years ago)
Author:
Ehouarn Millour
Message:

Physics/dynamics separation:

  • remove all references to dimensions.h from physics. nbp_lon (==iim) , nbp_lat (==jjm+1) and nbp_lev (==llm) from mod_grid_phy_lmdz should be used instead.
  • added module regular_lonlat_mod in phy_common to store information about the global (lon-lat) grid cell boundaries and centers.

EM

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r2320 r2346  
    99  IMPLICIT NONE
    1010
    11   ! ym#include "dimensions.h"
    12   ! ym#include "dimphy.h"
    13   ! ym#include "raddim.h"
    1411  include "YOMCST.h"
    1512
    … …  
    317314    rtdumg, rth2o, rtumg
    318315  IMPLICIT NONE
    319   ! ym#include "dimensions.h"
    320   ! ym#include "dimphy.h"
    321   ! ym#include "raddim.h"
    322316  include "radepsi.h"
    323317  include "radopt.h"
    … …  
    491485
    492486  IMPLICIT NONE
    493   ! ym#include "dimensions.h"
    494   ! ym#include "dimphy.h"
    495   ! ym#include "raddim.h"i
    496487
    497488  ! ------------------------------------------------------------------
    … …  
    715706
    716707  IMPLICIT NONE
    717   ! ym#include "dimensions.h"
    718   ! ym#include "dimphy.h"
    719   ! ym#include "raddim.h"
    720708  include "radepsi.h"
    721709
    … …  
    12101198  USE radiation_ar4_param, ONLY: taua, rpiza, rcga
    12111199  IMPLICIT NONE
    1212   ! ym#include "dimensions.h"
    1213   ! ym#include "dimphy.h"
    1214   ! ym#include "raddim.h"
    12151200  include "radepsi.h"
    12161201  include "radopt.h"
    … …  
    15411526  USE dimphy
    15421527  IMPLICIT NONE
    1543   ! ym#include "dimensions.h"
    1544   ! ym#include "dimphy.h"
    1545   ! ym#include "raddim.h"
    15461528  include "radepsi.h"
    15471529  include "radopt.h"
    … …  
    18711853  USE dimphy
    18721854  IMPLICIT NONE
    1873   ! ym#include "dimensions.h"
    1874   ! ym#include "dimphy.h"
    1875   ! ym#include "raddim.h"
    18761855
    18771856  ! ------------------------------------------------------------------
    … …  
    19981977  USE radiation_ar4_param, ONLY: apad, bpad, d
    19991978  IMPLICIT NONE
    2000   ! ym#include "dimensions.h"
    2001   ! ym#include "dimphy.h"
    2002   ! ym#include "raddim.h"
    20031979
    20041980  ! -----------------------------------------------------------------------
    … …  
    20702046  USE radiation_ar4_param, ONLY: apad, bpad, d
    20712047  IMPLICIT NONE
    2072   ! ym#include "dimensions.h"
    2073   ! ym#include "dimphy.h"
    2074   ! ym#include "raddim.h"
    20752048
    20762049  ! -----------------------------------------------------------------------
    … …  
    21532126  USE print_control_mod, ONLY: lunout
    21542127  IMPLICIT NONE
    2155   ! ym#include "dimensions.h"
    2156   ! ym#include "dimphy.h"
    2157   ! ym#include "raddim.h"
    21582128  include "raddimlw.h"
    21592129  include "YOMCST.h"
    … …  
    23482318
    23492319  IMPLICIT NONE
    2350   ! ym#include "dimensions.h"
    2351   ! ym#include "dimphy.h"
    2352   ! ym#include "raddim.h"
    23532320  include "raddimlw.h"
    23542321  include "YOMCST.h"
    … …  
    27142681  USE dimphy
    27152682  IMPLICIT NONE
    2716   ! ym#include "dimensions.h"
    2717   ! ym#include "dimphy.h"
    2718   ! ym#include "raddim.h"
    27192683  include "raddimlw.h"
    27202684  include "YOMCST.h"
    … …  
    28032767  USE dimphy
    28042768  IMPLICIT NONE
    2805   ! ym#include "dimensions.h"
    2806   ! ym#include "dimphy.h"
    2807   ! ym#include "raddim.h"
    28082769  include "radepsi.h"
    28092770  include "radopt.h"
    … …  
    31833144  USE radiation_ar4_param, ONLY: tintp, xp, ga, gb
    31843145  IMPLICIT NONE
    3185   ! ym#include "dimensions.h"
    3186   ! ym#include "dimphy.h"
    3187   ! ym#include "raddim.h"
    31883146  include "raddimlw.h"
    31893147
    … …  
    45854543  USE dimphy
    45864544  IMPLICIT NONE
    4587   ! ym#include "dimensions.h"
    4588   ! ym#include "dimphy.h"
    4589   ! ym#include "raddim.h"
    45904545  include "raddimlw.h"
    45914546  include "YOMCST.h"
    … …  
    46934648  USE dimphy
    46944649  IMPLICIT NONE
    4695   ! ym#include "dimensions.h"
    4696   ! ym#include "dimphy.h"
    4697   ! ym#include "raddim.h"
    46984650  include "raddimlw.h"
    46994651  include "radopt.h"
    … …  
    49954947  USE dimphy
    49964948  IMPLICIT NONE
    4997   ! ym#include "dimensions.h"
    4998   ! ym#include "dimphy.h"
    4999   ! ym#include "raddim.h"
    50004949  include "raddimlw.h"
    50014950
    … …  
    52315180  USE radiation_ar4_param, ONLY: wg1
    52325181  IMPLICIT NONE
    5233   ! ym#include "dimensions.h"
    5234   ! ym#include "dimphy.h"
    5235   ! ym#include "raddim.h"
    52365182  include "raddimlw.h"
    52375183
    … …  
    54265372  USE dimphy
    54275373  IMPLICIT NONE
    5428   ! ym#include "dimensions.h"
    5429   ! ym#include "dimphy.h"
    5430   ! ym#include "raddim.h"
    54315374  include "raddimlw.h"
    54325375
    … …  
    56025545  USE dimphy
    56035546  IMPLICIT NONE
    5604   ! ym#include "dimensions.h"
    5605   ! ym#include "dimphy.h"
    5606   ! ym#include "raddim.h"
    56075547  include "raddimlw.h"
    56085548
Note: See TracChangeset for help on using the changeset viewer.