Changeset 8644 for branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90

Timestamp:

2017-10-20T10:04:07+02:00 (7 years ago)

Author:

andmirek

Message:

ticket #1962 xios write functionality works

File:

• branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90 (modified) (3 diffs)

branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90

@@ -138 +138 @@
       INTEGER, INTENT(in)  ::   kt   ! ocean time-step index
       !
-      LOGICAL  ::   ll_fw_start        ! if true, forward integration 
-      LOGICAL  ::   ll_init             ! if true, special startup of 2d equations
+      LOGICAL  ::   ll_fw_start                 ! if true, forward integration 
+      LOGICAL  ::   ll_init                     ! if true, special startup of 2d equations
       LOGICAL  ::   ll_tmp1, ll_tmp2            ! local logical variables used in W/D
-      INTEGER  ::   ji, jj, jk, jn        ! dummy loop indices
-      INTEGER  ::   ikbu, ikbv, noffset      ! local integers
-      INTEGER  ::   iktu, iktv               ! local integers
+      INTEGER  ::   ji, jj, jk, jn              ! dummy loop indices
+      INTEGER  ::   ikbu, ikbv, noffset         ! local integers
+      INTEGER  ::   iktu, iktv                  ! local integers
       REAL(wp) ::   zmdi
-      REAL(wp) ::   zraur, z1_2dt_b, z2dt_bf    ! local scalars
+      REAL(wp) ::   zraur, z1_2dt_b, z2dt_bf    ! local scalars
       REAL(wp) ::   zx1, zy1, zx2, zy2          !   -      -
-      REAL(wp) ::   z1_12, z1_8, z1_4, z1_2  !   -      -
+      REAL(wp) ::   z1_12, z1_8, z1_4, z1_2     !   -      -
       REAL(wp) ::   zu_spg, zv_spg              !   -      -
-      REAL(wp) ::   zhura, zhvra          !   -      -
-      REAL(wp) ::   za0, za1, za2, za3    !   -      -
+      REAL(wp) ::   zhura, zhvra                !   -      -
+      REAL(wp) ::   za0, za1, za2, za3          !   -      -
       !
       REAL(wp), POINTER, DIMENSION(:,:) :: zsshp2_e
@@ -192 +192 @@
       ENDIF
       !
-      IF( kt == nit000 ) THEN                !* initialisation
+      IF( kt == nit000 ) THEN                       !* initialisation
          !
          IF(lwp) WRITE(numout,*)
@@ -1325 +1325 @@
       CALL wrk_dealloc( jpi,jpj,   zcu )
       !
+      IF( lwxios ) THEN
+! define variables in restart file when writing with XIOS
+         CALL set_rstw_var_active('ub2_b')
+         CALL set_rstw_var_active('vb2_b')
+         !
+         IF (.NOT.ln_bt_av) THEN
+            CALL set_rstw_var_active('sshbb_e')
+            CALL set_rstw_var_active('ubb_e')
+            CALL set_rstw_var_active('vbb_e')
+            CALL set_rstw_var_active('sshb_e')
+            CALL set_rstw_var_active('ub_e')
+            CALL set_rstw_var_active('vb_e')
+         ENDIF
+#if defined key_agrif
+         ! Save time integrated fluxes
+         IF ( .NOT.Agrif_Root() ) THEN
+            CALL set_rstw_var_active('ub2_i_b')
+            CALL set_rstw_var_active('vb2_i_b')
+         ENDIF
+#endif
+      ENDIF
+
    END SUBROUTINE dyn_spg_ts_init