Ignore:
Timestamp:
May 6, 2015, 12:14:12 PM (10 years ago)
Author:
ymipsl
Message:

Reorganize geometry and grid modules. Prepare physics for unstructutured grid support. Simplify initialization of physics from dynamic.
Compiled only with dynd3dmem, but not tested for moment.

YM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/mod_grid_phy_lmdz.F90

    r3814 r3825  
    1 !
    2 !$Id $
    3 !
    41MODULE mod_grid_phy_lmdz
    52
    … …  
    85             grid2dTo1d_glo_igen, grid2dTo1d_glo_rgen, grid2dTo1d_glo_lgen
    96 
     7  INTEGER,PARAMETER :: unstructured=0
     8  INTEGER,PARAMETER :: regular_lonlat=1
     9
     10  INTEGER,SAVE :: grid_type
     11  INTEGER,SAVE :: nvertex
    1012  INTEGER,SAVE :: nbp_lon  ! == iim
    1113  INTEGER,SAVE :: nbp_lat  ! == jjmp1
    1214  INTEGER,SAVE :: nbp_lev  ! == llm
    1315  INTEGER,SAVE :: klon_glo
     16
    1417
    1518  INTERFACE grid1dTo2d_glo
    … …  
    3235
    3336
    34   SUBROUTINE Init_grid_phy_lmdz(iim,jjp1,llm)
     37  SUBROUTINE init_grid_phy_lmdz(grid_type_,nvertex_,nbp_lon_,nbp_lat_,nbp_lev_)
    3538  IMPLICIT NONE
    36   INTEGER, INTENT(in) :: iim
    37   INTEGER, INTENT(in) :: jjp1
    38   INTEGER, INTENT(in) :: llm
    39  
    40     nbp_lon=iim
    41     nbp_lat=jjp1
    42     nbp_lev=llm
    43     klon_glo=(iim*jjp1)-2*(iim-1)
    44  
    45   END SUBROUTINE Init_grid_phy_lmdz
     39  INTEGER,INTENT(IN)  :: grid_type_
     40  INTEGER,INTENT(IN)  :: nvertex_
     41  INTEGER, INTENT(IN) :: nbp_lon_
     42  INTEGER, INTENT(IN) :: nbp_lat_
     43  INTEGER, INTENT(IN) :: nbp_lev_
     44 
     45    grid_type = grid_type_
     46    nvertex   = nvertex_
     47    nbp_lon   = nbp_lon_
     48    nbp_lat   = nbp_lat_
     49    nbp_lev   = nbp_lev_
     50    klon_glo  = (nbp_lon*nbp_lat)-2*(nbp_lon-1)
     51 
     52  END SUBROUTINE init_grid_phy_lmdz
    4653 
    4754 
Note: See TracChangeset for help on using the changeset viewer.