/[lmdze]/trunk/phylmd/Orography/start_init_orog.f
ViewVC logotype

Diff of /trunk/phylmd/Orography/start_init_orog.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

trunk/Sources/phylmd/Orography/start_init_orog.f revision 247 by guez, Fri Jan 5 14:45:45 2018 UTC trunk/phylmd/Orography/start_init_orog.f revision 324 by guez, Wed Feb 6 15:58:03 2019 UTC
# Line 3  MODULE start_init_orog_m Line 3  MODULE start_init_orog_m
3    ! From startvar.F, version 1.4    ! From startvar.F, version 1.4
4    ! 2006/01/27 15:14:22 Fairhead    ! 2006/01/27 15:14:22 Fairhead
5    
6    use dimens_m, only: iim, jjm    use dimensions, only: iim, jjm
7    
8    IMPLICIT NONE    IMPLICIT NONE
9    
# Line 90  CONTAINS Line 90  CONTAINS
90      ALLOCATE(lon_rad(iml_rel))      ALLOCATE(lon_rad(iml_rel))
91      ALLOCATE(lat_rad(jml_rel))      ALLOCATE(lat_rad(jml_rel))
92    
93      CALL conf_dat2d(lon_ini, lat_ini, lon_rad, lat_rad, relief , &      CALL conf_dat2d(lon_ini, lat_ini, lon_rad, lat_rad, relief, &
94           interbar=.FALSE.)           interbar = .FALSE.)
95    
96      print *, 'Compute all the parameters needed for the gravity wave drag code'      print *, 'Compute all the parameters needed for the gravity wave drag code'
97      CALL grid_noro(lon_rad, lat_rad, relief, rlonv, rlatu, phis, zmea_2d, &      CALL grid_noro(lon_rad, lat_rad, relief, rlonv, rlatu, phis, zmea_2d, &
Legend:
Removed from v.247  
changed lines
  Added in v.324
  ViewVC Help
Powered by ViewVC 1.1.21