New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 13932 for NEMO/branches/2020/dev_12905_xios_restart/tests – NEMO

Ignore:
Timestamp:
2020-12-01T09:21:09+01:00 (3 years ago)
Author:
andmirek
Message:

Ticket #2462: Addressing reviewr comments stage 2

Location:
NEMO/branches/2020/dev_12905_xios_restart/tests
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2020/dev_12905_xios_restart/tests/CANAL/MY_SRC/domvvl.F90

    r13871 r13932  
    785785         IF( ln_rstart ) THEN                   !* Read the restart file 
    786786            CALL rst_read_open                  !  open the restart file if necessary 
    787             IF( lrxios ) CALL iom_swap( cr_ocerst_cxt ) 
    788             CALL iom_get( numror, jpdom_auto, 'sshn'   , ssh(:,:,Kmm), ldxios = lrxios    ) 
     787            CALL iom_get( numror, jpdom_auto, 'sshn'   , ssh(:,:,Kmm)    ) 
    789788            ! 
    790789            id1 = iom_varid( numror, 'e3t_b', ldstop = .FALSE. ) 
    … …  
    799798            ! 
    800799            IF( MIN( id1, id2 ) > 0 ) THEN       ! all required arrays exist 
    801                CALL iom_get( numror, jpdom_auto, 'e3t_b', e3t(:,:,:,Kbb), ldxios = lrxios ) 
    802                CALL iom_get( numror, jpdom_auto, 'e3t_n', e3t(:,:,:,Kmm), ldxios = lrxios ) 
     800               CALL iom_get( numror, jpdom_auto, 'e3t_b', e3t(:,:,:,Kbb) ) 
     801               CALL iom_get( numror, jpdom_auto, 'e3t_n', e3t(:,:,:,Kmm) ) 
    803802               ! needed to restart if land processor not computed  
    804803               IF(lwp) write(numout,*) 'dom_vvl_rst : e3t(:,:,:,Kbb) and e3t(:,:,:,Kmm) found in restart files' 
    … …  
    814813               IF(lwp) write(numout,*) 'e3t_n set equal to e3t_b.' 
    815814               IF(lwp) write(numout,*) 'l_1st_euler is forced to true' 
    816                CALL iom_get( numror, jpdom_auto, 'e3t_b', e3t(:,:,:,Kbb), ldxios = lrxios ) 
     815               CALL iom_get( numror, jpdom_auto, 'e3t_b', e3t(:,:,:,Kbb) ) 
    817816               e3t(:,:,:,Kmm) = e3t(:,:,:,Kbb) 
    818817               l_1st_euler = .true. 
    … …  
    821820               IF(lwp) write(numout,*) 'e3t_b set equal to e3t_n.' 
    822821               IF(lwp) write(numout,*) 'l_1st_euler is forced to true' 
    823                CALL iom_get( numror, jpdom_auto, 'e3t_n', e3t(:,:,:,Kmm), ldxios = lrxios ) 
     822               CALL iom_get( numror, jpdom_auto, 'e3t_n', e3t(:,:,:,Kmm) ) 
    824823               e3t(:,:,:,Kbb) = e3t(:,:,:,Kmm) 
    825824               l_1st_euler = .true. 
    … …  
    846845               !                          ! ----------------------- ! 
    847846               IF( MIN( id3, id4 ) > 0 ) THEN  ! all required arrays exist 
    848                   CALL iom_get( numror, jpdom_auto, 'tilde_e3t_b', tilde_e3t_b(:,:,:), ldxios = lrxios ) 
    849                   CALL iom_get( numror, jpdom_auto, 'tilde_e3t_n', tilde_e3t_n(:,:,:), ldxios = lrxios ) 
     847                  CALL iom_get( numror, jpdom_auto, 'tilde_e3t_b', tilde_e3t_b(:,:,:) ) 
     848                  CALL iom_get( numror, jpdom_auto, 'tilde_e3t_n', tilde_e3t_n(:,:,:) ) 
    850849               ELSE                            ! one at least array is missing 
    851850                  tilde_e3t_b(:,:,:) = 0.0_wp 
    … …  
    856855                  !                       ! ------------ ! 
    857856                  IF( id5 > 0 ) THEN  ! required array exists 
    858                      CALL iom_get( numror, jpdom_auto, 'hdiv_lf', hdiv_lf(:,:,:), ldxios = lrxios ) 
     857                     CALL iom_get( numror, jpdom_auto, 'hdiv_lf', hdiv_lf(:,:,:) ) 
    859858                  ELSE                ! array is missing 
    860859                     hdiv_lf(:,:,:) = 0.0_wp 
    … …  
    862861               ENDIF 
    863862            ENDIF 
    864             IF( lrxios ) CALL iom_swap( cxios_context ) 
    865863            ! 
    866864         ELSE                                   !* Initialize at "rest" 
    … …  
    931929         !                                   ! =================== 
    932930         IF(lwp) WRITE(numout,*) '---- dom_vvl_rst ----' 
    933          IF( lwxios ) CALL iom_swap(      cw_ocerst_cxt          ) 
    934931         !                                           ! --------- ! 
    935932         !                                           ! all cases ! 
    936933         !                                           ! --------- ! 
    937          CALL iom_rstput( kt, nitrst, numrow, 'e3t_b', e3t(:,:,:,Kbb), ldxios = lwxios ) 
    938          CALL iom_rstput( kt, nitrst, numrow, 'e3t_n', e3t(:,:,:,Kmm), ldxios = lwxios ) 
     934         CALL iom_rstput( kt, nitrst, numrow, 'e3t_b', e3t(:,:,:,Kbb) ) 
     935         CALL iom_rstput( kt, nitrst, numrow, 'e3t_n', e3t(:,:,:,Kmm) ) 
    939936         !                                           ! ----------------------- ! 
    940937         IF( ln_vvl_ztilde .OR. ln_vvl_layer ) THEN  ! z_tilde and layer cases ! 
    941938            !                                        ! ----------------------- ! 
    942             CALL iom_rstput( kt, nitrst, numrow, 'tilde_e3t_b', tilde_e3t_b(:,:,:), ldxios = lwxios) 
    943             CALL iom_rstput( kt, nitrst, numrow, 'tilde_e3t_n', tilde_e3t_n(:,:,:), ldxios = lwxios) 
     939            CALL iom_rstput( kt, nitrst, numrow, 'tilde_e3t_b', tilde_e3t_b(:,:,:)) 
     940            CALL iom_rstput( kt, nitrst, numrow, 'tilde_e3t_n', tilde_e3t_n(:,:,:)) 
    944941         END IF 
    945942         !                                           ! -------------!     
    946943         IF( ln_vvl_ztilde ) THEN                    ! z_tilde case ! 
    947944            !                                        ! ------------ ! 
    948             CALL iom_rstput( kt, nitrst, numrow, 'hdiv_lf', hdiv_lf(:,:,:), ldxios = lwxios) 
     945            CALL iom_rstput( kt, nitrst, numrow, 'hdiv_lf', hdiv_lf(:,:,:)) 
    949946         ENDIF 
    950947         ! 
    951          IF( lwxios ) CALL iom_swap(      cxios_context          ) 
    952948      ENDIF 
    953949      ! 

  • NEMO/branches/2020/dev_12905_xios_restart/tests/VORTEX/MY_SRC/domvvl.F90

    r13871 r13932  
    785785         IF( ln_rstart ) THEN                   !* Read the restart file 
    786786            CALL rst_read_open                  !  open the restart file if necessary 
    787             IF( lrxios ) CALL iom_swap( cr_ocerst_cxt ) 
    788             CALL iom_get( numror, jpdom_auto, 'sshn'   , ssh(:,:,Kmm), ldxios = lrxios    ) 
     787            CALL iom_get( numror, jpdom_auto, 'sshn'   , ssh(:,:,Kmm)    ) 
    789788            ! 
    790789            id1 = iom_varid( numror, 'e3t_b', ldstop = .FALSE. ) 
    … …  
    799798            ! 
    800799            IF( MIN( id1, id2 ) > 0 ) THEN       ! all required arrays exist 
    801                CALL iom_get( numror, jpdom_auto, 'e3t_b', e3t(:,:,:,Kbb), ldxios = lrxios ) 
    802                CALL iom_get( numror, jpdom_auto, 'e3t_n', e3t(:,:,:,Kmm), ldxios = lrxios ) 
     800               CALL iom_get( numror, jpdom_auto, 'e3t_b', e3t(:,:,:,Kbb) ) 
     801               CALL iom_get( numror, jpdom_auto, 'e3t_n', e3t(:,:,:,Kmm) ) 
    803802               ! needed to restart if land processor not computed  
    804803               IF(lwp) write(numout,*) 'dom_vvl_rst : e3t(:,:,:,Kbb) and e3t(:,:,:,Kmm) found in restart files' 
    … …  
    814813               IF(lwp) write(numout,*) 'e3t_n set equal to e3t_b.' 
    815814               IF(lwp) write(numout,*) 'l_1st_euler is forced to true' 
    816                CALL iom_get( numror, jpdom_auto, 'e3t_b', e3t(:,:,:,Kbb), ldxios = lrxios ) 
     815               CALL iom_get( numror, jpdom_auto, 'e3t_b', e3t(:,:,:,Kbb) ) 
    817816               e3t(:,:,:,Kmm) = e3t(:,:,:,Kbb) 
    818817               l_1st_euler = .true. 
    … …  
    821820               IF(lwp) write(numout,*) 'e3t_b set equal to e3t_n.' 
    822821               IF(lwp) write(numout,*) 'l_1st_euler is forced to true' 
    823                CALL iom_get( numror, jpdom_auto, 'e3t_n', e3t(:,:,:,Kmm), ldxios = lrxios ) 
     822               CALL iom_get( numror, jpdom_auto, 'e3t_n', e3t(:,:,:,Kmm) ) 
    824823               e3t(:,:,:,Kbb) = e3t(:,:,:,Kmm) 
    825824               l_1st_euler = .true. 
    … …  
    846845               !                          ! ----------------------- ! 
    847846               IF( MIN( id3, id4 ) > 0 ) THEN  ! all required arrays exist 
    848                   CALL iom_get( numror, jpdom_auto, 'tilde_e3t_b', tilde_e3t_b(:,:,:), ldxios = lrxios ) 
    849                   CALL iom_get( numror, jpdom_auto, 'tilde_e3t_n', tilde_e3t_n(:,:,:), ldxios = lrxios ) 
     847                  CALL iom_get( numror, jpdom_auto, 'tilde_e3t_b', tilde_e3t_b(:,:,:) ) 
     848                  CALL iom_get( numror, jpdom_auto, 'tilde_e3t_n', tilde_e3t_n(:,:,:) ) 
    850849               ELSE                            ! one at least array is missing 
    851850                  tilde_e3t_b(:,:,:) = 0.0_wp 
    … …  
    856855                  !                       ! ------------ ! 
    857856                  IF( id5 > 0 ) THEN  ! required array exists 
    858                      CALL iom_get( numror, jpdom_auto, 'hdiv_lf', hdiv_lf(:,:,:), ldxios = lrxios ) 
     857                     CALL iom_get( numror, jpdom_auto, 'hdiv_lf', hdiv_lf(:,:,:) ) 
    859858                  ELSE                ! array is missing 
    860859                     hdiv_lf(:,:,:) = 0.0_wp 
    … …  
    862861               ENDIF 
    863862            ENDIF 
    864             IF( lrxios ) CALL iom_swap( cxios_context ) 
    865863            ! 
    866864         ELSE                                   !* Initialize at "rest" 
    … …  
    931929         !                                   ! =================== 
    932930         IF(lwp) WRITE(numout,*) '---- dom_vvl_rst ----' 
    933          IF( lwxios ) CALL iom_swap(      cw_ocerst_cxt          ) 
    934931         !                                           ! --------- ! 
    935932         !                                           ! all cases ! 
    936933         !                                           ! --------- ! 
    937          CALL iom_rstput( kt, nitrst, numrow, 'e3t_b', e3t(:,:,:,Kbb), ldxios = lwxios ) 
    938          CALL iom_rstput( kt, nitrst, numrow, 'e3t_n', e3t(:,:,:,Kmm), ldxios = lwxios ) 
     934         CALL iom_rstput( kt, nitrst, numrow, 'e3t_b', e3t(:,:,:,Kbb) ) 
     935         CALL iom_rstput( kt, nitrst, numrow, 'e3t_n', e3t(:,:,:,Kmm) ) 
    939936         !                                           ! ----------------------- ! 
    940937         IF( ln_vvl_ztilde .OR. ln_vvl_layer ) THEN  ! z_tilde and layer cases ! 
    941938            !                                        ! ----------------------- ! 
    942             CALL iom_rstput( kt, nitrst, numrow, 'tilde_e3t_b', tilde_e3t_b(:,:,:), ldxios = lwxios) 
    943             CALL iom_rstput( kt, nitrst, numrow, 'tilde_e3t_n', tilde_e3t_n(:,:,:), ldxios = lwxios) 
     939            CALL iom_rstput( kt, nitrst, numrow, 'tilde_e3t_b', tilde_e3t_b(:,:,:)) 
     940            CALL iom_rstput( kt, nitrst, numrow, 'tilde_e3t_n', tilde_e3t_n(:,:,:)) 
    944941         END IF 
    945942         !                                           ! -------------!     
    946943         IF( ln_vvl_ztilde ) THEN                    ! z_tilde case ! 
    947944            !                                        ! ------------ ! 
    948             CALL iom_rstput( kt, nitrst, numrow, 'hdiv_lf', hdiv_lf(:,:,:), ldxios = lwxios) 
     945            CALL iom_rstput( kt, nitrst, numrow, 'hdiv_lf', hdiv_lf(:,:,:)) 
    949946         ENDIF 
    950947         ! 
    951          IF( lwxios ) CALL iom_swap(      cxios_context          ) 
    952948      ENDIF 
    953949      ! 
Note: See TracChangeset for help on using the changeset viewer.