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 3212 for branches/2011/dev_NEMO_MERGE_2011 – NEMO

Ignore:
Timestamp:
2011-12-12T11:53:45+01:00 (12 years ago)
Author:
cbricaud
Message:

delete a redundant declaration in par_oce.F90 of jpk , when no ccp key of config (key_gyre..., key_orca) is activated

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/par_oce.F90

    r3116 r3212  
    176176   INTEGER, PUBLIC  ::   jpi   ! = ( jpiglo-2*jpreci + (jpni-1) ) / jpni + 2*jpreci   !: first  dimension 
    177177   INTEGER, PUBLIC  ::   jpj   ! = ( jpjglo-2*jprecj + (jpnj-1) ) / jpnj + 2*jprecj   !: second dimension 
    178    INTEGER, PUBLIC  ::   jpk   ! = jpkdta                                             !: third dimension 
    179178   INTEGER, PUBLIC  ::   jpim1 ! = jpi-1                                            !: inner domain indices 
    180179   INTEGER, PUBLIC  ::   jpjm1 ! = jpj-1                                            !:   -     -      - 
Note: See TracChangeset for help on using the changeset viewer.