Changeset 6453 for branches/CNRS/dev_r6270_PISCES_QUOTA/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zmicro.F90
- Timestamp:
- 2016-04-08T10:10:11+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/CNRS/dev_r6270_PISCES_QUOTA/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zmicro.F90
r6204 r6453 20 20 USE p4zlim ! Co-limitations 21 21 USE p4zsink ! vertical flux of particulate matter due to sinking 22 USE p4zint ! interpolation and computation of various fields23 22 USE p4zprod ! production 24 23 USE iom ! I/O manager … … 150 149 tra(ji,jj,jk,jpnh4) = tra(ji,jj,jk,jpnh4) + zgrarsig 151 150 tra(ji,jj,jk,jpdoc) = tra(ji,jj,jk,jpdoc) + zgrarem - zgrarsig 151 #if defined key_ligand 152 tra(ji,jj,jk,jplgw) = tra(ji,jj,jk,jplgw) + (zgrarem - zgrarsig) * ldocz 153 #endif 152 154 tra(ji,jj,jk,jpoxy) = tra(ji,jj,jk,jpoxy) - o2ut * zgrarsig 153 155 tra(ji,jj,jk,jpfer) = tra(ji,jj,jk,jpfer) + zgrafer 154 156 tra(ji,jj,jk,jppoc) = tra(ji,jj,jk,jppoc) + zgrapoc 157 prodpoc(ji,jj,jk) = prodpoc(ji,jj,jk) + zgrapoc 155 158 tra(ji,jj,jk,jpsfe) = tra(ji,jj,jk,jpsfe) + zgraztotf * unass 156 159 tra(ji,jj,jk,jpdic) = tra(ji,jj,jk,jpdic) + zgrarsig … … 172 175 tra(ji,jj,jk,jpdfe) = tra(ji,jj,jk,jpdfe) - zgrazsf 173 176 tra(ji,jj,jk,jppoc) = tra(ji,jj,jk,jppoc) + zmortz - zgrazm 177 prodpoc(ji,jj,jk) = prodpoc(ji,jj,jk) + zmortz 178 conspoc(ji,jj,jk) = conspoc(ji,jj,jk) - zgrazm 174 179 tra(ji,jj,jk,jpsfe) = tra(ji,jj,jk,jpsfe) + ferat3 * zmortz - zgrazmf 175 180 !
Note: See TracChangeset
for help on using the changeset viewer.