Changeset 1334 for trunk/NEMO/LIM_SRC_2/limwri_2.F90
- Timestamp:
- 2009-03-03T15:07:48+01:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/LIM_SRC_2/limwri_2.F90
r1312 r1334 103 103 ENDIF 104 104 zout = nwrite * rdt_ice / nn_fsbc 105 niter = 0105 niter = nit000 - 1 106 106 zdept(1) = 0. 107 107 … … 110 110 CALL dia_nam ( clhstnam, nwrite, 'icemod' ) 111 111 CALL histbeg ( clhstnam, jpi, glamt, jpj, gphit, & 112 & 1, jpi, 1, jpj, 0, zjulian, rdt_ice, nhorid, nice , domain_id=nidom)113 CALL histvert( nice, "deptht", "Vertical T levels", "m", 1, zdept, ndepid )112 & 1, jpi, 1, jpj, nit000-1, zjulian, rdt_ice, nhorid, nice , domain_id=nidom) 113 CALL histvert( nice, "deptht", "Vertical T levels", "m", 1, zdept, ndepid, "down") 114 114 CALL wheneq ( jpij , tmask(:,:,1), 1, 1., ndex51, ndim) 115 115 … … 182 182 END DO 183 183 184 IF( ( nn_fsbc * niter + nit000 - 1) >= nitend ) CALL histclo( nice )184 IF( ( nn_fsbc * niter ) >= nitend ) CALL histclo( nice ) 185 185 ! 186 186 END SUBROUTINE lim_wri_2
Note: See TracChangeset
for help on using the changeset viewer.