/[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 277 by guez, Thu Jul 12 15:56:17 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: rlatu, rlatv, read_serre, fyhyp, fxhyp
        yprimu1, yprimu2, rlonu, rlonv, xprimu, xprimv  
   use fxhyp_m, only: fxhyp  
   use fyhyp_m, only: fyhyp  
5    use inifilr_m, only: inifilr, jfiltnu, jfiltnv, jfiltsu, jfiltsv, &    use inifilr_m, only: inifilr, jfiltnu, jfiltnv, jfiltsu, jfiltsv, &
6         matriceun, matrinvn, matricevn, matriceus, matrinvs, matricevs         matriceun, matrinvn, matricevn, matriceus, matrinvs, matricevs
   use jumble, only: new_unit  
7    use netcdf, only: NF90_CLOBBER, NF90_FLOAT    use netcdf, only: NF90_CLOBBER, NF90_FLOAT
8    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, &
9         NF95_PUT_VAR, NF95_CLOSE, nf95_put_att         NF95_PUT_VAR, NF95_CLOSE, nf95_put_att
10    use nr_util, only: pi    use nr_util, only: pi
11    use unit_nml_m, only: unit_nml    use unit_nml_m, only: unit_nml, set_unit_nml
   use read_serre_m, only: read_serre  
12    
13    IMPLICIT NONE    IMPLICIT NONE
14    
# Line 24  program test_inifilr Line 19  program test_inifilr
19    
20    !-----------------------------------------------------------------------    !-----------------------------------------------------------------------
21    
22    call new_unit(unit_nml)    call set_unit_nml
23    open(unit_nml, file="used_namelists.txt", status="replace", action="write")    open(unit_nml, file="used_namelists.txt", status="replace", action="write")
24    call read_serre    call read_serre
25      CALL fyhyp
26    CALL fyhyp(rlatu, rlatv, rlatu2, yprimu2, rlatu1, yprimu1)    CALL fxhyp
   CALL fxhyp(xprimm025, rlonv, xprimv, rlonu, xprimu, xprimp025)  
   rlatu(1) = pi / 2.  
   rlatu(jjm + 1) = -rlatu(1)  
   
27    CALL inifilr    CALL inifilr
28    close(unit_nml)    close(unit_nml)
29    
Legend:
Removed from v.254  
changed lines
  Added in v.277
  ViewVC Help
Powered by ViewVC 1.1.21