/[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 276 by guez, Thu Jul 12 14:49:20 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 dimensions, 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, read_serre  
   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
7    use netcdf, only: NF90_CLOBBER, NF90_FLOAT    use netcdf, only: NF90_CLOBBER, NF90_FLOAT
# Line 25  program test_inifilr Line 22  program test_inifilr
22    call set_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.276  
changed lines
  Added in v.277
  ViewVC Help
Powered by ViewVC 1.1.21