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 3668 for branches/2012/dev_r3604_LEGI8_TAM/NEMOGCM/NEMO/OPATAM_SRC/LBC/cla_tam.F90 – NEMO

Ignore:
Timestamp:
2012-11-26T16:05:24+01:00 (11 years ago)
Author:
pabouttier
Message:

Missing allocation for sbc_ice variables in TAM - See Ticket #1026

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2012/dev_r3604_LEGI8_TAM/NEMOGCM/NEMO/OPATAM_SRC/LBC/cla_tam.F90

    r3611 r3668  
    708708            DO ji = mi1(161), mi0(161), -1 
    709709               hdiv_161_88_kt_ad(:) = hdiv_161_88_kt_ad(:) + hdivn_ad(ji,jj,:) 
    710                DO jk = 8, 1                              ! increase the inflow from the Indian   (div >0) 
     710               DO jk = 8, 1, -1                              ! increase the inflow from the Indian   (div >0) 
    711711                  zemp_red_ad = zemp_red_ad + hdiv_161_88_ad(jk) / (8. * e2u(ji,jj) * fse3u(ji,jj,jk) ) 
    712712               END DO 
Note: See TracChangeset for help on using the changeset viewer.