- Timestamp:
- 2016-11-21T10:38:43+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_CNRS_2016/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zprod.F90
r6140 r7278 133 133 zval = MAX( 1., zstrn(ji,jj) ) 134 134 zval = 1.5 * zval / ( 12. + zval ) 135 zprbio(ji,jj,jk) = prmax(ji,jj,jk) * zval 135 zprbio(ji,jj,jk) = prmax(ji,jj,jk) * zval * ( 1. - fr_i(ji,jj) ) 136 136 zprdia(ji,jj,jk) = zprbio(ji,jj,jk) 137 137 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.