Ignore:
Timestamp:
2015-11-29T20:28:41+01:00 (5 years ago)
Author:
mathiot
Message:

ISF: change related to reviewers comments

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/dev_r5151_UKMO_ISF/NEMOGCM/NEMO/OPA_SRC/DYN/dynnxt.F90

    r5624 r5944  
    100100      ! 
    101101      INTEGER  ::   ji, jj, jk   ! dummy loop indices 
    102       INTEGER  ::   iku, ikv     ! local integers 
     102      INTEGER  ::   ikt          ! local integers 
    103103#if ! defined key_dynspg_flt 
    104104      REAL(wp) ::   z2dt         ! temporary scalar 
     
    268268               DO jj = 1,jpj 
    269269                  DO ji = 1,jpi 
    270                      jk = mikt(ji,jj) 
    271                      fse3t_b(ji,jj,jk) = fse3t_b(ji,jj,jk) - atfp * rdt * r1_rau0                  &  
     270                     ikt = mikt(ji,jj) 
     271                     fse3t_b(ji,jj,ikt) = fse3t_b(ji,jj,ikt) - atfp * rdt * r1_rau0                  &  
    272272                                       &                          * ( (emp_b(ji,jj) - emp(ji,jj) ) & 
    273273                                       &                            - (rnf_b(ji,jj) - rnf(ji,jj) ) &     
    274                                        &                            + (fwfisf_b(ji,jj) - fwfisf(ji,jj) ) ) * tmask(ji,jj,jk) 
     274                                       &                            + (fwfisf_b(ji,jj) - fwfisf(ji,jj) ) ) * tmask(ji,jj,ikt) 
    275275                  END DO 
    276276               END DO 
Note: See TracChangeset for help on using the changeset viewer.