Changeset 2715 for trunk/NEMOGCM/NEMO/TOP_SRC/PISCES/trcrst_pisces.F90
- Timestamp:
- 2011-03-30T17:58:35+02:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/TOP_SRC/PISCES/trcrst_pisces.F90
r2528 r2715 18 18 USE trcsms_pisces ! pisces sms trends 19 19 USE sms_pisces ! pisces sms variables 20 USE in_out_manager ! I/O manager21 20 USE iom 22 21 USE trcdta 23 USE lib_mpp24 USE lib_fortran25 22 26 23 IMPLICIT NONE … … 108 105 !! ** purpose : Relaxation of some tracers 109 106 !!---------------------------------------------------------------------- 110 INTEGER :: ji, jj, jk 111 REAL(wp) :: & 112 alkmean = 2426. , & ! mean value of alkalinity ( Glodap ; for Goyet 2391. ) 113 po4mean = 2.165 , & ! mean value of phosphates 114 no3mean = 30.90 , & ! mean value of nitrate 115 silmean = 91.51 ! mean value of silicate 116 117 REAL(wp) :: zarea, zvol, zalksum, zpo4sum, zno3sum, zsilsum 107 REAL(wp) :: alkmean = 2426. ! mean value of alkalinity ( Glodap ; for Goyet 2391. ) 108 REAL(wp) :: po4mean = 2.165 ! mean value of phosphates 109 REAL(wp) :: no3mean = 30.90 ! mean value of nitrate 110 REAL(wp) :: silmean = 91.51 ! mean value of silicate 111 112 REAL(wp) :: zarea, zalksum, zpo4sum, zno3sum, zsilsum 118 113 119 114
Note: See TracChangeset
for help on using the changeset viewer.