Changeset 5944 for branches/2015/dev_r5151_UKMO_ISF/NEMOGCM/NEMO/OPA_SRC/DYN/dynnxt.F90

Timestamp:

2015-11-29T20:28:41+01:00 (8 years ago)

Author:

mathiot

Message:

ISF: change related to reviewers comments

File:

• branches/2015/dev_r5151_UKMO_ISF/NEMOGCM/NEMO/OPA_SRC/DYN/dynnxt.F90 (modified) (2 diffs)

branches/2015/dev_r5151_UKMO_ISF/NEMOGCM/NEMO/OPA_SRC/DYN/dynnxt.F90

@@ -100 +100 @@
       !
       INTEGER  ::   ji, jj, jk   ! dummy loop indices
-      INTEGER  ::   iku, ikv     ! local integers
+      INTEGER  ::   ikt          ! local integers
 #if ! defined key_dynspg_flt
       REAL(wp) ::   z2dt         ! temporary scalar
@@ -268 +268 @@
                DO jj = 1,jpj
                   DO ji = 1,jpi
-                     jk = mikt(ji,jj)
-                     fse3t_b(ji,jj,jk) = fse3t_b(ji,jj,jk) - atfp * rdt * r1_rau0                  & 
+                     ikt = mikt(ji,jj)
+                     fse3t_b(ji,jj,ikt) = fse3t_b(ji,jj,ikt) - atfp * rdt * r1_rau0                  & 
                                        &                          * ( (emp_b(ji,jj) - emp(ji,jj) ) &
                                        &                            - (rnf_b(ji,jj) - rnf(ji,jj) ) &    
-                                       &                            + (fwfisf_b(ji,jj) - fwfisf(ji,jj) ) ) * tmask(ji,jj,jk)
+                                       &                            + (fwfisf_b(ji,jj) - fwfisf(ji,jj) ) ) * tmask(ji,jj,ikt)
                   END DO
                END DO