Changeset 11893 for NEMO/branches/2019/dev_r11756_SI3restart_XIOS/src/ICE/icerst.F90

Timestamp:

2019-11-13T09:48:43+01:00 (4 years ago)

Author:

andmirek

Message:

Ticket #2323 read/write SI3 restart file

File:

• NEMO/branches/2019/dev_r11756_SI3restart_XIOS/src/ICE/icerst.F90 (modified) (1 diff)

NEMO/branches/2019/dev_r11756_SI3restart_XIOS/src/ICE/icerst.F90

@@ -138 +138 @@
       CALL iom_rstput( iter, nitrst, numriw, 'a_ip' , a_ip, ldxios = lwxios  )
       CALL iom_rstput( iter, nitrst, numriw, 'v_ip' , v_ip, ldxios = lwxios  )
+      IF(lwxios) THEN
+         CALL iom_rstput( iter, nitrst, numriw, 'e_s' , e_s, ldxios = lwxios )
+         CALL iom_rstput( iter, nitrst, numriw, 'e_i' , e_i, ldxios = lwxios )
+      ELSE
       ! Snow enthalpy
-      DO jk = 1, nlay_s 
-         WRITE(zchar1,'(I2.2)') jk
-         znam = 'e_s'//'_l'//zchar1
-         z3d(:,:,:) = e_s(:,:,jk,:)
-         CALL iom_rstput( iter, nitrst, numriw, znam , z3d, ldxios = lwxios )
-      END DO
-      ! Ice enthalpy
-      DO jk = 1, nlay_i 
-         WRITE(zchar1,'(I2.2)') jk
-         znam = 'e_i'//'_l'//zchar1
-         z3d(:,:,:) = e_i(:,:,jk,:)
-         CALL iom_rstput( iter, nitrst, numriw, znam , z3d, ldxios = lwxios )
-      END DO
+         DO jk = 1, nlay_s 
+            WRITE(zchar1,'(I2.2)') jk
+            znam = 'e_s'//'_l'//zchar1
+            z3d(:,:,:) = e_s(:,:,jk,:)
+            CALL iom_rstput( iter, nitrst, numriw, znam , z3d, ldxios = lwxios )
+         END DO
+         ! Ice enthalpy
+         DO jk = 1, nlay_i 
+            WRITE(zchar1,'(I2.2)') jk
+            znam = 'e_i'//'_l'//zchar1
+            z3d(:,:,:) = e_i(:,:,jk,:)
+            CALL iom_rstput( iter, nitrst, numriw, znam , z3d, ldxios = lwxios )
+         END DO
+      ENDIF
       ! fields needed for Met Office (Jules) coupling
       IF( ln_cpl ) THEN