Changeset 9367 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90

Timestamp:

2018-02-28T17:23:20+01:00 (6 years ago)

Author:

mathiot

Message:

Add restart read/write via XIOS capability (#1953 and #1962 and twiki: 2017WP/Met_Office-1_Mirek_XIOSread). WARNING: need to upgrade XIOS to r1296 to compile

File:

• branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90 (modified) (3 diffs)

branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90

@@ -732 +732 @@
       CALL tke_rst( nit000, 'READ' )      ! (en, avt_k, avm_k, dissl) 
       !
+      IF( lwxios ) THEN
+         CALL iom_set_rstw_var_active('en')
+         CALL iom_set_rstw_var_active('avt_k')
+         CALL iom_set_rstw_var_active('avm_k')
+         CALL iom_set_rstw_var_active('dissl')
+      ENDIF
    END SUBROUTINE zdf_tke_init
 
@@ -763 +769 @@
             !
             IF( MIN( id1, id2, id3, id4 ) > 0 ) THEN      ! fields exist
-               CALL iom_get( numror, jpdom_autoglo, 'en'   , en    )
-               CALL iom_get( numror, jpdom_autoglo, 'avt_k', avt_k )
-               CALL iom_get( numror, jpdom_autoglo, 'avm_k', avm_k )
-               CALL iom_get( numror, jpdom_autoglo, 'dissl', dissl )
+               CALL iom_get( numror, jpdom_autoglo, 'en'   , en   , ldxios = lrxios )
+               CALL iom_get( numror, jpdom_autoglo, 'avt_k', avt_k, ldxios = lrxios )
+               CALL iom_get( numror, jpdom_autoglo, 'avm_k', avm_k, ldxios = lrxios )
+               CALL iom_get( numror, jpdom_autoglo, 'dissl', dissl, ldxios = lrxios )
             ELSE                                          ! start TKE from rest
                IF(lwp) WRITE(numout,*)
@@ -785 +791 @@
          !                                   ! -------------------
          IF(lwp) WRITE(numout,*) '---- tke_rst ----'
-         CALL iom_rstput( kt, nitrst, numrow, 'en'   , en    )
-         CALL iom_rstput( kt, nitrst, numrow, 'avt_k', avt_k )
-         CALL iom_rstput( kt, nitrst, numrow, 'avm_k', avm_k )
-         CALL iom_rstput( kt, nitrst, numrow, 'dissl', dissl )
+         IF( lwxios ) CALL iom_swap(      cwxios_context          ) 
+         CALL iom_rstput( kt, nitrst, numrow, 'en'   , en   , ldxios = lwxios )
+         CALL iom_rstput( kt, nitrst, numrow, 'avt_k', avt_k, ldxios = lwxios )
+         CALL iom_rstput( kt, nitrst, numrow, 'avm_k', avm_k, ldxios = lwxios )
+         CALL iom_rstput( kt, nitrst, numrow, 'dissl', dissl, ldxios = lwxios )
+         IF( lwxios ) CALL iom_swap(      cxios_context          )
          !
       ENDIF