- Timestamp:
- 2016-08-03T16:59:29+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/CNRS/dev_r6270_PISCES_QUOTA/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zmeso.F90
r6453 r6841 244 244 & + zgraztotf * unass2 - zfracfe 245 245 zfracal = trb(ji,jj,jk,jpcal) / (trb(ji,jj,jk,jppoc) + trb(ji,jj,jk,jpgoc) + rtrn ) 246 zgrazcal = zgrazffeg* (1. - part2) * zfracal246 zgrazcal = (zgrazffeg + zgrazpoc) * (1. - part2) * zfracal 247 247 #endif 248 248
Note: See TracChangeset
for help on using the changeset viewer.