Changeset 1359 for trunk/NEMO/LIM_SRC_2/limwri_2.F90
- Timestamp:
- 2009-03-31T14:36:28+02:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/LIM_SRC_2/limwri_2.F90
r1347 r1359 27 27 USE dianam ! build name of file (routine) 28 28 USE in_out_manager 29 USE iom 29 30 USE ioipsl 30 31 … … 93 94 !!------------------------------------------------------------------- 94 95 96 CALL iom_setkt( kt + nn_fsbc - 1 ) 95 97 ! !--------------------! 96 98 IF( kt == nit000 ) THEN ! Initialisation ! … … 179 181 180 182 IF( nc(jf) == 1 ) CALL histwrite( nice, nam(jf), niter, zfield, ndim, ndex51 ) 183 CALL iom_put( nam(jf), zfield ) 181 184 182 185 END DO … … 184 187 IF( ( nn_fsbc * niter ) >= nitend ) CALL histclo( nice ) 185 188 ! 189 CALL iom_setkt( kt ) 190 186 191 END SUBROUTINE lim_wri_2 187 192
Note: See TracChangeset
for help on using the changeset viewer.