Changeset 2703


Ignore:
Timestamp:
2011-03-25T09:28:15+01:00 (10 years ago)
Author:
cetlod
Message:

wrk_3d_2 work array is used twice in PISCES/p4zprod.F90 routine

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/TOP_SRC/PISCES/p4zprod.F90

    r2690 r2703  
    6868      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released 
    6969      USE wrk_nemo, ONLY:   zmixnano   => wrk_2d_1  , zmixdiat    => wrk_2d_2  , zstrn  => wrk_2d_3 
    70       USE wrk_nemo, ONLY:   zpislopead => wrk_3d_2  , zpislopead2 => wrk_3d_2 
     70      USE wrk_nemo, ONLY:   zpislopead => wrk_3d_2  , zpislopead2 => wrk_3d_3 
    7171      USE wrk_nemo, ONLY:   zprdia     => wrk_3d_4  , zprbio      => wrk_3d_5  , zysopt => wrk_3d_6 
    7272      USE wrk_nemo, ONLY:   zprorca    => wrk_3d_7  , zprorcad    => wrk_3d_8 
Note: See TracChangeset for help on using the changeset viewer.