/[lmdze]/trunk/libf/phylmd/physiq.f90
ViewVC logotype

Diff of /trunk/libf/phylmd/physiq.f90

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

revision 5 by guez, Wed Feb 27 13:16:39 2008 UTC revision 6 by guez, Tue Mar 4 14:00:42 2008 UTC
# Line 2752  contains Line 2752  contains
2752        CALL histwrite(nid_hf3d, "vitv", itau_w, zx_tmp_3d, &        CALL histwrite(nid_hf3d, "vitv", itau_w, zx_tmp_3d, &
2753             iim*(jjm + 1)*llm, ndex3d)             iim*(jjm + 1)*llm, ndex3d)
2754    
2755        CALL gr_fi_ecrit(llm, klon, iim, (jjm + 1), tr_seri(1, 1, 3), &        if (nbtr >= 3) then
2756             zx_tmp_3d)           CALL gr_fi_ecrit(llm, klon, iim, (jjm + 1), tr_seri(1, 1, 3), &
2757        CALL histwrite(nid_hf3d, "O3", itau_w, zx_tmp_3d, iim*(jjm + 1)*llm, ndex3d)                zx_tmp_3d)
2758             CALL histwrite(nid_hf3d, "O3", itau_w, zx_tmp_3d, iim*(jjm + 1)*llm, &
2759                  ndex3d)
2760          end if
2761    
2762        if (ok_sync) then        if (ok_sync) then
2763           call histsync(nid_hf3d)           call histsync(nid_hf3d)
Legend:
Removed from v.5  
changed lines
  Added in v.6
  ViewVC Help
Powered by ViewVC 1.1.21