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

Diff of /trunk/dyn3d/dynetat0.f

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

revision 84 by guez, Wed Mar 5 14:57:53 2014 UTC revision 85 by guez, Thu Mar 6 17:35:22 2014 UTC
# Line 146  contains Line 146  contains
146    
147      call NF95_INQ_VARID (ncid, "ps", varid)      call NF95_INQ_VARID (ncid, "ps", varid)
148      call NF95_GET_VAR(ncid, varid, ps)      call NF95_GET_VAR(ncid, varid, ps)
149        ! Check that there is a single value at each pole:
150        call assert(ps(1, 1) == ps(2:, 1), "dynetat0 ps north pole")
151        call assert(ps(1, jjm + 1) == ps(2:, jjm + 1), "dynetat0 ps south pole")
152    
153      call NF95_CLOSE(ncid)      call NF95_CLOSE(ncid)
154    
Legend:
Removed from v.84  
changed lines
  Added in v.85
  ViewVC Help
Powered by ViewVC 1.1.21