/[lmdze]/trunk/filtrez/test_inifilr.f
ViewVC logotype

Diff of /trunk/filtrez/test_inifilr.f

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

revision 254 by guez, Mon Feb 5 10:39:38 2018 UTC revision 276 by guez, Thu Jul 12 14:49:20 2018 UTC
# Line 1  Line 1 
1  program test_inifilr  program test_inifilr
2    
3    use dimens_m, only: iim, jjm    use dimensions, only: iim, jjm
4    use dynetat0_m, only: xprimp025, xprimm025, rlatu1, rlatu2, rlatu, rlatv, &    use dynetat0_m, only: xprimp025, xprimm025, rlatu1, rlatu2, rlatu, rlatv, &
5         yprimu1, yprimu2, rlonu, rlonv, xprimu, xprimv         yprimu1, yprimu2, rlonu, rlonv, xprimu, xprimv, read_serre
6    use fxhyp_m, only: fxhyp    use fxhyp_m, only: fxhyp
7    use fyhyp_m, only: fyhyp    use fyhyp_m, only: fyhyp
8    use inifilr_m, only: inifilr, jfiltnu, jfiltnv, jfiltsu, jfiltsv, &    use inifilr_m, only: inifilr, jfiltnu, jfiltnv, jfiltsu, jfiltsv, &
9         matriceun, matrinvn, matricevn, matriceus, matrinvs, matricevs         matriceun, matrinvn, matricevn, matriceus, matrinvs, matricevs
   use jumble, only: new_unit  
10    use netcdf, only: NF90_CLOBBER, NF90_FLOAT    use netcdf, only: NF90_CLOBBER, NF90_FLOAT
11    use netcdf95, only: nf95_create, NF95_DEF_DIM, NF95_DEF_VAR, NF95_ENDDEF, &    use netcdf95, only: nf95_create, NF95_DEF_DIM, NF95_DEF_VAR, NF95_ENDDEF, &
12         NF95_PUT_VAR, NF95_CLOSE, nf95_put_att         NF95_PUT_VAR, NF95_CLOSE, nf95_put_att
13    use nr_util, only: pi    use nr_util, only: pi
14    use unit_nml_m, only: unit_nml    use unit_nml_m, only: unit_nml, set_unit_nml
   use read_serre_m, only: read_serre  
15    
16    IMPLICIT NONE    IMPLICIT NONE
17    
# Line 24  program test_inifilr Line 22  program test_inifilr
22    
23    !-----------------------------------------------------------------------    !-----------------------------------------------------------------------
24    
25    call new_unit(unit_nml)    call set_unit_nml
26    open(unit_nml, file="used_namelists.txt", status="replace", action="write")    open(unit_nml, file="used_namelists.txt", status="replace", action="write")
27    call read_serre    call read_serre
28    
Legend:
Removed from v.254  
changed lines
  Added in v.276
  ViewVC Help
Powered by ViewVC 1.1.21