/[lmdze]/trunk/dyn3d/test_fxhyp.f
ViewVC logotype

Diff of /trunk/dyn3d/test_fxhyp.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_fxhyp  program test_fxhyp
2    
3    USE dimensions, ONLY: iim    use dynetat0_m, only: read_serre, fxhyp, xprimm025, rlonv, xprimv, rlonu, &
4    use dynetat0_m, only: read_serre         xprimu, xprimp025
   use fxhyp_m, only: fxhyp  
5    use unit_nml_m, only: unit_nml, set_unit_nml    use unit_nml_m, only: unit_nml, set_unit_nml
6    
7    implicit none    implicit none
8    
   REAL, dimension(iim + 1):: xprimm025, rlonv, xprimv, rlonu, xprimu, xprimp025  
   
9    !--------------------------------------------------------    !--------------------------------------------------------
10    
11    call set_unit_nml    call set_unit_nml
12    open(unit_nml, file="used_namelists.txt", status="replace", action="write")    open(unit_nml, file="used_namelists.txt", status="replace", action="write")
13    call read_serre    call read_serre
14    call fxhyp(xprimm025, rlonv, xprimv, rlonu, xprimu, xprimp025)    call fxhyp
15    close(unit_nml)    close(unit_nml)
16    
17    ! We can use the same unit number although we are not writing a namelist:    ! We can use the same unit number although we are not writing a namelist:
Legend:
Removed from v.276  
changed lines
  Added in v.277
  ViewVC Help
Powered by ViewVC 1.1.21