Changeset 1000 for LMDZ4/trunk/libf/dyn3dpar/writedynav_p.F
- Timestamp:
- Oct 6, 2008, 10:43:22 AM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/trunk/libf/dyn3dpar/writedynav_p.F
r774 r1000 105 105 C Vents V scalaire 106 106 C 107 if (pole_sud) ije= jj_end-iip1107 if (pole_sud) ije=ij_end-iip1 108 108 if (pole_sud) jjn=jj_nb-1 109 109 110 110 call gr_v_scal_p(llm, vnat, vs) 111 call histwrite(histid, 'v', itau_w, vs(ijb: :ije,:),111 call histwrite(histid, 'v', itau_w, vs(ijb:ije,:), 112 112 . iip1*jjn*llm, ndex3d) 113 113 C … … 118 118 jjn=jj_nb 119 119 120 call histwrite(histid, 'theta', itau_w, teta(ijb: :ije,:),120 call histwrite(histid, 'theta', itau_w, teta(ijb:ije,:), 121 121 . iip1*jjn*llm, ndex3d) 122 122 C
Note: See TracChangeset
for help on using the changeset viewer.