Changeset 3773

Timestamp:

2013-02-07T12:06:58+01:00 (11 years ago)

Author:

cbricaud

Message:

report changetset 3686 donne in branch 2012/dev_MERGE_2012 into dev_v3_4_STABLE_2012_rev3772

File:

• branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/TOP_SRC/PISCES/p4zprod.F90 (modified) (2 diffs)

branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/TOP_SRC/PISCES/p4zprod.F90

@@ -341 +341 @@
                      zprod    = rday * zprorca(ji,jj,jk) * zprnch(ji,jj,jk) * xlimphy(ji,jj,jk)
                      zprochln(ji,jj,jk) = chlcmin * 12. * zprorca (ji,jj,jk)
-                     zprochln(ji,jj,jk) = zprochln(ji,jj,jk) + chlcnm * 12. * zprod / (  zpislopead(ji,jj,jk) * znanotot +rtrn)
+                     zprochln(ji,jj,jk) = zprochln(ji,jj,jk) + chlcnm * 12. * zprod /  &
+                                        & (  zpislopead(ji,jj,jk) * znanotot +rtrn)
                      !  production terms for diatomees ( chlorophyll )
                      zdiattot = ediat(ji,jj,jk) * zstrn(ji,jj)
                      zprod = rday * zprorcad(ji,jj,jk) * zprdch(ji,jj,jk) * xlimdia(ji,jj,jk)
                      zprochld(ji,jj,jk) = chlcmin * 12. * zprorcad(ji,jj,jk)
-                     zprochld(ji,jj,jk) = zprochld(ji,jj,jk) + chlcdm * 12. * zprod / ( zpislopead2(ji,jj,jk) * zdiattot +rtrn )
+                     zprochld(ji,jj,jk) = zprochld(ji,jj,jk) + chlcdm * 12. * zprod /  &
+                                        & ( zpislopead2(ji,jj,jk) * zdiattot +rtrn )
                   ENDIF
                END DO
@@ -362 +364 @@
                      znanotot = enano(ji,jj,jk) * zstrn(ji,jj)
                      zprod = rday * zprorca(ji,jj,jk) * zprnch(ji,jj,jk) * trn(ji,jj,jk,jpphy) * xlimphy(ji,jj,jk)
-                     zprochln(ji,jj,jk) = chlcnm * 144. * zprod / (  zpislopead(ji,jj,jk) * trn(ji,jj,jk,jpnch) * znanotot +rtrn)
+                     zprochln(ji,jj,jk) = chlcnm * 144. * zprod / &
+                                        & (  zpislopead(ji,jj,jk) * trn(ji,jj,jk,jpnch) * znanotot +rtrn)
                      !  production terms for diatomees ( chlorophyll )
                      zdiattot = ediat(ji,jj,jk) * zstrn(ji,jj)
                      zprod = rday * zprorcad(ji,jj,jk) * zprdch(ji,jj,jk) * trn(ji,jj,jk,jpdia) * xlimdia(ji,jj,jk)
-                     zprochld(ji,jj,jk) = chlcdm * 144. * zprod / ( zpislopead2(ji,jj,jk) * trn(ji,jj,jk,jpdch) * zdiattot +rtrn )
+                     zprochld(ji,jj,jk) = chlcdm * 144. * zprod / &
+                                        & ( zpislopead2(ji,jj,jk) * trn(ji,jj,jk,jpdch) * zdiattot +rtrn )
                   ENDIF
                END DO