- Timestamp:
- 2012-01-28T17:44:18+01:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/EXTERNAL/XMLIO_SERVER/src/IOSERVER/mod_iomanager.f90
r2281 r3294 313 313 314 314 IF (pt_field%axis%name=="none") THEN 315 CALL write_ioipsl_2d(varname,Field_buffer(1:ni,1:nj,1)) 316 ELSE 315 317 CALL write_ioipsl_3d(varname,Field_buffer(1:ni,1:nj,1:nk)) 316 ELSE317 CALL write_ioipsl_2d(varname,Field_buffer(1:ni,1:nj,1))318 318 ENDIF 319 319
Note: See TracChangeset
for help on using the changeset viewer.