- Timestamp:
- 2010-09-10T12:32:58+02:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/DEV_r2006_merge_TRA_TRC/NEMO/TOP_SRC/PISCES/p4zprod.F90
r2038 r2082 147 147 ! Computation of the P-I slope for nanos and diatoms 148 148 IF( etot(ji,jj,jk) > 1.E-3 ) THEN 149 ztn = MAX( 0., t n(ji,jj,jk) - 15. )149 ztn = MAX( 0., tsn(ji,jj,jk,jp_tem) - 15. ) 150 150 zadap = 0.+ 1.* ztn / ( 2.+ ztn ) 151 151 zadap2 = 0.e0
Note: See TracChangeset
for help on using the changeset viewer.