Changeset 284
- Timestamp:
- 2005-09-22T12:28:03+02:00 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/LIM_SRC/limwri_dimg.h90
r247 r284 15 15 !!------------------------------------------------------------------- 16 16 !! * Local variables 17 USE dia wri, ONLY :dia_wri_dimg17 USE diadimg ! use of dia_wri_dimg 18 18 REAL(wp),DIMENSION(1) :: zdept 19 19 … … 130 130 nmoyice = nmoyice + 1 131 131 ! compute mean value if it is time to write on file 132 IF ( MOD(numit ,nwrite) == 0 ) THEN132 IF ( MOD(numit-nit000+1,nwrite) == 0 ) THEN 133 133 rcmoy(:,:,:) = rcmoy(:,:,:) / FLOAT(nmoyice) 134 134 #else 135 IF ( MOD(numit ,nwrite) == 0 ) THEN135 IF ( MOD(numit-nit000+1,nwrite) == 0 ) THEN 136 136 ! case of instantaneaous output rcmoy(:,:, 1:jpnoumax ) = 0.e0 137 137 DO jj = 2 , jpjm1
Note: See TracChangeset
for help on using the changeset viewer.