/[lmdze]/trunk/dyn3d/Inter_barxy/test_inter_barxy.f
ViewVC logotype

Diff of /trunk/dyn3d/Inter_barxy/test_inter_barxy.f

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

revision 276 by guez, Thu Jul 12 14:49:20 2018 UTC revision 313 by guez, Mon Dec 10 15:54:30 2018 UTC
# Line 5  program test_inter_barxy Line 5  program test_inter_barxy
5    use comgeom, only: inigeom    use comgeom, only: inigeom
6    use conf_gcm_m, only: conf_gcm    use conf_gcm_m, only: conf_gcm
7    use dimensions, only: iim, jjm    use dimensions, only: iim, jjm
8    USE dynetat0_m, only: rlonu, rlatv, rlatu, rlatu1, rlatu2, rlonv, xprimm025, &    USE dynetat0_m, only: rlonu, rlatv, fyhyp, fxhyp
9         xprimp025, xprimu, xprimv, yprimu1, yprimu2, read_serre    use dynetat0_chosen_m, only: read_serre
   use fxhyp_m, only: fxhyp  
   use fyhyp_m, only: fyhyp  
10    use inter_barxy_m, only: inter_barxy    use inter_barxy_m, only: inter_barxy
11    USE nr_util, ONLY : pi    USE nr_util, ONLY : pi
12    
# Line 37  program test_inter_barxy Line 35  program test_inter_barxy
35    call read_comdissnew    call read_comdissnew
36    CALL iniconst    CALL iniconst
37    call read_serre    call read_serre
38    CALL fyhyp(rlatu, rlatv, rlatu2, yprimu2, rlatu1, yprimu1)    CALL fyhyp
39    CALL fxhyp(xprimm025, rlonv, xprimv, rlonu, xprimu, xprimp025)    CALL fxhyp
   
   rlatu(1) = pi / 2.  
   rlatu(jjm + 1) = -rlatu(1)  
   
40    CALL inigeom    CALL inigeom
41    
42    lon_ini = - pi + 2 * pi / iml_dyn * (/(i, i = 0, iml_dyn - 1)/)    lon_ini = - pi + 2 * pi / iml_dyn * (/(i, i = 0, iml_dyn - 1)/)
Legend:
Removed from v.276  
changed lines
  Added in v.313
  ViewVC Help
Powered by ViewVC 1.1.21