Changeset 2960 for branches/2011/dev_r2787_PISCES_improvment/NEMOGCM/NEMO
- Timestamp:
- 2011-10-19T11:26:30+02:00 (13 years ago)
- Location:
- branches/2011/dev_r2787_PISCES_improvment/NEMOGCM/NEMO/TOP_SRC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_r2787_PISCES_improvment/NEMOGCM/NEMO/TOP_SRC/PISCES/trcsms_pisces.F90
r2959 r2960 143 143 REAL(wp) :: no3mean = 30.90 ! mean value of nitrate 144 144 REAL(wp) :: silmean = 91.51 ! mean value of silicate 145 145 ! 146 INTEGER :: jk 146 147 REAL(wp) :: zarea, zalksum, zpo4sum, zno3sum, zsilsum 147 148 REAL(wp), ALLOCATABLE, DIMENSION(:,:,:) :: zvolume ! volume of ocean -
branches/2011/dev_r2787_PISCES_improvment/NEMOGCM/NEMO/TOP_SRC/trcrst.F90
r2959 r2960 283 283 !! ** purpose : Compute tracers statistics 284 284 !!---------------------------------------------------------------------- 285 286 INTEGER :: jn 285 INTEGER :: jk, jn 287 286 REAL(wp) :: zdiag_var, zdiag_varmin, zdiag_varmax, zdiag_tot 288 287 REAL(wp), ALLOCATABLE, DIMENSION(:,:,:) :: zvolume ! volume of ocean 289 288 REAL(wp) :: zareatot, zder 290 289 !!---------------------------------------------------------------------- 291 292 290 293 291 IF( lwp ) THEN
Note: See TracChangeset
for help on using the changeset viewer.