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 222 for trunk/NEMO/OPA_SRC/DTA/dtatem.F90 – NEMO

Ignore:
Timestamp:
2005-03-18T19:19:09+01:00 (19 years ago)
Author:
opalod
Message:

CT : BUGFIX159 : initialize ipk=jpk to avoid error when running on IBM and with IOIPSL-2-0 tag

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/OPA_SRC/DTA/dtatem.F90

    r156 r222  
    113113 
    114114      itime = jpmois 
    115       ipi=jpiglo 
    116       ipj=jpjglo 
     115      ipi = jpiglo 
     116      ipj = jpjglo 
     117      ipk = jpk 
    117118 
    118119      ! 1. First call kt=nit000 
Note: See TracChangeset for help on using the changeset viewer.