Changeset 13871 for NEMO/branches/2020/dev_12905_xios_restart/src/OCE/ZDF/zdftke.F90

Timestamp:

2020-11-25T12:51:29+01:00 (3 years ago)

Author:

andmirek

Message:

Ticket #2462: Addressing reviewr comments stage 1

File:

• NEMO/branches/2020/dev_12905_xios_restart/src/OCE/ZDF/zdftke.F90 (modified) (4 diffs)

NEMO/branches/2020/dev_12905_xios_restart/src/OCE/ZDF/zdftke.F90

@@ -746 +746 @@
          !                                   ! ---------------
          IF( ln_rstart ) THEN                   !* Read the restart file
-            IF( lroxios ) CALL iom_swap( TRIM(crxios_context) )
+            IF( lrxios ) CALL iom_swap( TRIM(cr_ocerst_cxt) )
             id1 = iom_varid( numror, 'en'   , ldstop = .FALSE. )
             id2 = iom_varid( numror, 'avt_k', ldstop = .FALSE. )
@@ -753 +753 @@
             !
             IF( MIN( id1, id2, id3, id4 ) > 0 ) THEN      ! fields exist
-               CALL iom_get( numror, jpdom_auto, 'en'   , en   , ldxios = lroxios )
-               CALL iom_get( numror, jpdom_auto, 'avt_k', avt_k, ldxios = lroxios )
-               CALL iom_get( numror, jpdom_auto, 'avm_k', avm_k, ldxios = lroxios )
-               CALL iom_get( numror, jpdom_auto, 'dissl', dissl, ldxios = lroxios )
+               CALL iom_get( numror, jpdom_auto, 'en'   , en   , ldxios = lrxios )
+               CALL iom_get( numror, jpdom_auto, 'avt_k', avt_k, ldxios = lrxios )
+               CALL iom_get( numror, jpdom_auto, 'avm_k', avm_k, ldxios = lrxios )
+               CALL iom_get( numror, jpdom_auto, 'dissl', dissl, ldxios = lrxios )
             ELSE                                          ! start TKE from rest
                IF(lwp) WRITE(numout,*)
@@ -764 +764 @@
                ! avt_k, avm_k already set to the background value in zdf_phy_init
             ENDIF
-            IF( lroxios ) CALL iom_swap( TRIM(cxios_context) )
+            IF( lrxios ) CALL iom_swap( TRIM(cxios_context) )
          ELSE                                   !* Start from rest
             IF(lwp) WRITE(numout,*)
@@ -776 +776 @@
          !                                   ! -------------------
          IF(lwp) WRITE(numout,*) '---- tke_rst ----'
-         IF( lwxios ) CALL iom_swap(      cwxios_context          ) 
+         IF( lwxios ) CALL iom_swap(      cw_ocerst_cxt          ) 
          CALL iom_rstput( kt, nitrst, numrow, 'en'   , en   , ldxios = lwxios )
          CALL iom_rstput( kt, nitrst, numrow, 'avt_k', avt_k, ldxios = lwxios )