/[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_m.f revision 225 by guez, Mon Oct 16 12:35:41 2017 UTC trunk/phylmd/Orography/start_init_orog.f revision 265 by guez, Tue Mar 20 09:35:59 2018 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 53  CONTAINS Line 53  CONTAINS
53      INTEGER iml_rel      INTEGER iml_rel
54      INTEGER jml_rel      INTEGER jml_rel
55      INTEGER ncid, varid      INTEGER ncid, varid
56      REAL, ALLOCATABLE:: relief(:, :)      REAL, ALLOCATABLE:: relief(:, :) ! in m
57      REAL, ALLOCATABLE:: lon_rad(:), lat_rad(:)      REAL, ALLOCATABLE:: lon_rad(:), lat_rad(:)
58      REAL, ALLOCATABLE:: lon_ini(:), lat_ini(:)      REAL, ALLOCATABLE:: lon_ini(:), lat_ini(:)
59    
# Line 94  CONTAINS Line 94  CONTAINS
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, &
98           zstd_2d, zsig_2d, zgam_2d, zthe_2d, zpic_2d, zval_2d, mask)           zstd_2d, zsig_2d, zgam_2d, zthe_2d, zpic_2d, zval_2d, mask)
99      phis(:, :) = phis(:, :) * 9.81      phis(:, :) = phis(:, :) * 9.81
Legend:
Removed from v.225  
changed lines
  Added in v.265
  ViewVC Help
Powered by ViewVC 1.1.21