Changeset 1118 for LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/writedynav_p.F
- Timestamp:
- Mar 11, 2009, 1:52:52 PM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/writedynav_p.F
r1114 r1118 104 104 C Vents V scalaire 105 105 C 106 if (pole_sud) ije=ij_end-iip1107 if (pole_sud) jjn=jj_nb-1108 106 109 107 call gr_v_scal_p(llm, vnat, vs) … … 113 111 C Temperature potentielle moyennee 114 112 C 115 ijb=ij_begin 116 ije=ij_end 117 jjn=jj_nb 118 113 119 114 call histwrite(histid, 'theta', itau_w, teta(ijb:ije,:), 120 115 . iip1*jjn*llm, ndex3d)
Note: See TracChangeset
for help on using the changeset viewer.