Changeset 7813 for trunk/NEMOGCM/NEMO/LIM_SRC_3/limrst.F90

Timestamp:

2017-03-20T17:17:45+01:00 (7 years ago)

Author:

clem

Message:

synchronize trunk with 3.6

File:

• trunk/NEMOGCM/NEMO/LIM_SRC_3/limrst.F90 (modified) (2 diffs)

trunk/NEMOGCM/NEMO/LIM_SRC_3/limrst.F90

@@ -147 +147 @@
          z2d(:,:) = t_su(:,:,jl)
          CALL iom_rstput( iter, nitrst, numriw, znam , z2d )
-      END DO
-
-      DO jl = 1, jpl 
-         WRITE(zchar,'(I2.2)') jl
          znam = 'tempt_sl1'//'_htc'//zchar
          z2d(:,:) = e_s(:,:,1,jl)
          CALL iom_rstput( iter, nitrst, numriw, znam , z2d )
-      END DO
-
-      DO jl = 1, jpl 
-         WRITE(zchar,'(I2.2)') jl
          DO jk = 1, nlay_i 
             WRITE(zchar1,'(I2.2)') jk
@@ -376 +368 @@
          CALL iom_get( numrir, jpdom_autoglo, znam , z2d )
          t_su(:,:,jl) = z2d(:,:)
-      END DO
-
-      DO jl = 1, jpl 
-         WRITE(zchar,'(I2.2)') jl
          znam = 'tempt_sl1'//'_htc'//zchar
          CALL iom_get( numrir, jpdom_autoglo, znam , z2d )
          e_s(:,:,1,jl) = z2d(:,:)
-      END DO
-
-      DO jl = 1, jpl 
-         WRITE(zchar,'(I2.2)') jl
          DO jk = 1, nlay_i 
             WRITE(zchar1,'(I2.2)') jk