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 2265 – NEMO

Changeset 2265


Ignore:
Timestamp:
2010-10-14T13:31:09+02:00 (14 years ago)
Author:
rblod
Message:

Correct a bug in fldread due to the final merge

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/SBC/fldread.F90

    r2239 r2265  
    209209 
    210210            ! read after data 
    211             ipk = SIZE( sd(jf)%fdta, 3 ) 
     211            ipk = SIZE( sd(jf)%fnow, 3 ) 
    212212            IF( LEN(TRIM(sd(jf)%wgtname)) > 0 ) THEN 
    213213               CALL wgt_list( sd(jf), kw ) 
Note: See TracChangeset for help on using the changeset viewer.