New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 3686 for branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zprod.F90 – NEMO

Ignore:
Timestamp:
2012-11-27T16:42:15+01:00 (11 years ago)
Author:
cbricaud
Message:

split a line which too long in p4zprod.F90

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zprod.F90

    r3481 r3686  
    342342                     zprod    = rday * zprorca(ji,jj,jk) * zprnch(ji,jj,jk) * xlimphy(ji,jj,jk) 
    343343                     zprochln(ji,jj,jk) = chlcmin * 12. * zprorca (ji,jj,jk) 
    344                      zprochln(ji,jj,jk) = zprochln(ji,jj,jk) + (chlcnm-chlcmin) * 12. * zprod / (  zpislopead(ji,jj,jk) * znanotot +rtrn) 
     344                     zprochln(ji,jj,jk) = zprochln(ji,jj,jk) + (chlcnm-chlcmin) * 12. * zprod / & 
     345                                        & (  zpislopead(ji,jj,jk) * znanotot +rtrn) 
    345346                     !  production terms for diatomees ( chlorophyll ) 
    346347                     zdiattot = ediat(ji,jj,jk) * zstrn(ji,jj) 
    347348                     zprod = rday * zprorcad(ji,jj,jk) * zprdch(ji,jj,jk) * xlimdia(ji,jj,jk) 
    348349                     zprochld(ji,jj,jk) = chlcmin * 12. * zprorcad(ji,jj,jk) 
    349                      zprochld(ji,jj,jk) = zprochld(ji,jj,jk) + (chlcdm-chlcmin) * 12. * zprod / ( zpislopead2(ji,jj,jk) * zdiattot +rtrn ) 
     350                     zprochld(ji,jj,jk) = zprochld(ji,jj,jk) + (chlcdm-chlcmin) * 12. * zprod / & 
     351                                        & ( zpislopead2(ji,jj,jk) * zdiattot +rtrn ) 
    350352                  ENDIF 
    351353               END DO 
Note: See TracChangeset for help on using the changeset viewer.