/[lmdze]/trunk/phylmd/test_ozonecm.f
ViewVC logotype

Diff of /trunk/phylmd/test_ozonecm.f

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

revision 275 by guez, Tue Mar 20 09:35:59 2018 UTC revision 276 by guez, Thu Jul 12 14:49:20 2018 UTC
# Line 9  program test_ozonecm Line 9  program test_ozonecm
9    use dimensions, only: jjm, llm    use dimensions, only: jjm, llm
10    USE dimphy, ONLY : klon    USE dimphy, ONLY : klon
11    use disvert_m, only: pa, disvert, ap, bp, preff, presnivs    use disvert_m, only: pa, disvert, ap, bp, preff, presnivs
   use jumble, only: new_unit  
12    use ozonecm_m, only: ozonecm    use ozonecm_m, only: ozonecm
13    use phyetat0_m, only: rlat    use phyetat0_m, only: rlat
14    use nr_util, only: arth, assert    use nr_util, only: arth, assert
15    use netcdf95, only: nf95_create, nf95_def_dim, nf95_def_var, nf95_put_att, &    use netcdf95, only: nf95_create, nf95_def_dim, nf95_def_var, nf95_put_att, &
16         nf95_enddef, nf95_put_var, nf95_close         nf95_enddef, nf95_put_var, nf95_close
17    use netcdf, only: nf90_clobber, nf90_float, nf90_global    use netcdf, only: nf90_clobber, nf90_float, nf90_global
18    use unit_nml_m, only: unit_nml    use unit_nml_m, only: unit_nml, set_unit_nml
19    
20    implicit none    implicit none
21    
# Line 35  program test_ozonecm Line 34  program test_ozonecm
34    
35    call assert(klon == jjm + 1, "test_ozonecm: iim should be 1")    call assert(klon == jjm + 1, "test_ozonecm: iim should be 1")
36    
37    call new_unit(unit_nml)    call set_unit_nml
38    open(unit_nml, file="used_namelists.txt", status="replace", action="write")    open(unit_nml, file="used_namelists.txt", status="replace", action="write")
39    
40    pa = 5e4    pa = 5e4
Legend:
Removed from v.275  
changed lines
  Added in v.276
  ViewVC Help
Powered by ViewVC 1.1.21