- Timestamp:
- 02/08/12 17:17:04 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
vendor/nemo/current/NEMOGCM/EXTERNAL/XMLIO_SERVER/src/IOSERVER/mod_iomanager.f90
r1 r4 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.