Changeset 6333 for branches/UKMO/nemo_v3_6_STABLE_copy/NEMOGCM/NEMO/TOP_SRC/PISCES/trcini_pisces.F90
- Timestamp:
- 2016-02-19T13:11:22+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/nemo_v3_6_STABLE_copy/NEMOGCM/NEMO/TOP_SRC/PISCES/trcini_pisces.F90
r5783 r6333 115 115 po4r = 1._wp / 122._wp 116 116 o2nit = 32._wp / 122._wp 117 rdenit = 105._wp / 16._wp 117 o2ut = 133._wp / 122._wp 118 rdenit = ( ( o2ut + o2nit ) * 0.80 - rno3 - rno3 * 0.60 ) / rno3 118 119 rdenita = 3._wp / 5._wp 119 o2ut = 133._wp / 122._wp 120 120 121 121 122 ! Initialization of tracer concentration in case of no restart
Note: See TracChangeset
for help on using the changeset viewer.