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 13871 for NEMO/branches/2020/dev_12905_xios_restart/tests – NEMO

Ignore:
Timestamp:
2020-11-25T12:51:29+01:00 (3 years ago)
Author:
andmirek
Message:

Ticket #2462: Addressing reviewr comments stage 1

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

    r13727 r13871  
    785785         IF( ln_rstart ) THEN                   !* Read the restart file 
    786786            CALL rst_read_open                  !  open the restart file if necessary 
    787             IF( lroxios ) CALL iom_swap( TRIM(crxios_context) ) 
    788             CALL iom_get( numror, jpdom_auto, 'sshn'   , ssh(:,:,Kmm), ldxios = lroxios    ) 
     787            IF( lrxios ) CALL iom_swap( cr_ocerst_cxt ) 
     788            CALL iom_get( numror, jpdom_auto, 'sshn'   , ssh(:,:,Kmm), ldxios = lrxios    ) 
    789789            ! 
    790790            id1 = iom_varid( numror, 'e3t_b', ldstop = .FALSE. ) 
    … …  
    799799            ! 
    800800            IF( MIN( id1, id2 ) > 0 ) THEN       ! all required arrays exist 
    801                CALL iom_get( numror, jpdom_auto, 'e3t_b', e3t(:,:,:,Kbb), ldxios = lroxios ) 
    802                CALL iom_get( numror, jpdom_auto, 'e3t_n', e3t(:,:,:,Kmm), ldxios = lroxios ) 
     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 ) 
    803803               ! needed to restart if land processor not computed  
    804804               IF(lwp) write(numout,*) 'dom_vvl_rst : e3t(:,:,:,Kbb) and e3t(:,:,:,Kmm) found in restart files' 
    … …  
    814814               IF(lwp) write(numout,*) 'e3t_n set equal to e3t_b.' 
    815815               IF(lwp) write(numout,*) 'l_1st_euler is forced to true' 
    816                CALL iom_get( numror, jpdom_auto, 'e3t_b', e3t(:,:,:,Kbb), ldxios = lroxios ) 
     816               CALL iom_get( numror, jpdom_auto, 'e3t_b', e3t(:,:,:,Kbb), ldxios = lrxios ) 
    817817               e3t(:,:,:,Kmm) = e3t(:,:,:,Kbb) 
    818818               l_1st_euler = .true. 
    … …  
    821821               IF(lwp) write(numout,*) 'e3t_b set equal to e3t_n.' 
    822822               IF(lwp) write(numout,*) 'l_1st_euler is forced to true' 
    823                CALL iom_get( numror, jpdom_auto, 'e3t_n', e3t(:,:,:,Kmm), ldxios = lroxios ) 
     823               CALL iom_get( numror, jpdom_auto, 'e3t_n', e3t(:,:,:,Kmm), ldxios = lrxios ) 
    824824               e3t(:,:,:,Kbb) = e3t(:,:,:,Kmm) 
    825825               l_1st_euler = .true. 
    … …  
    846846               !                          ! ----------------------- ! 
    847847               IF( MIN( id3, id4 ) > 0 ) THEN  ! all required arrays exist 
    848                   CALL iom_get( numror, jpdom_auto, 'tilde_e3t_b', tilde_e3t_b(:,:,:), ldxios = lroxios ) 
    849                   CALL iom_get( numror, jpdom_auto, 'tilde_e3t_n', tilde_e3t_n(:,:,:), ldxios = lroxios ) 
     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 ) 
    850850               ELSE                            ! one at least array is missing 
    851851                  tilde_e3t_b(:,:,:) = 0.0_wp 
    … …  
    856856                  !                       ! ------------ ! 
    857857                  IF( id5 > 0 ) THEN  ! required array exists 
    858                      CALL iom_get( numror, jpdom_auto, 'hdiv_lf', hdiv_lf(:,:,:), ldxios = lroxios ) 
     858                     CALL iom_get( numror, jpdom_auto, 'hdiv_lf', hdiv_lf(:,:,:), ldxios = lrxios ) 
    859859                  ELSE                ! array is missing 
    860860                     hdiv_lf(:,:,:) = 0.0_wp 
    … …  
    862862               ENDIF 
    863863            ENDIF 
    864             IF( lroxios ) CALL iom_swap( TRIM(cxios_context) ) 
     864            IF( lrxios ) CALL iom_swap( cxios_context ) 
    865865            ! 
    866866         ELSE                                   !* Initialize at "rest" 
    … …  
    931931         !                                   ! =================== 
    932932         IF(lwp) WRITE(numout,*) '---- dom_vvl_rst ----' 
    933          IF( lwxios ) CALL iom_swap(      cwxios_context          ) 
     933         IF( lwxios ) CALL iom_swap(      cw_ocerst_cxt          ) 
    934934         !                                           ! --------- ! 
    935935         !                                           ! all cases ! 

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

    r13750 r13871  
    785785         IF( ln_rstart ) THEN                   !* Read the restart file 
    786786            CALL rst_read_open                  !  open the restart file if necessary 
    787             IF( lroxios ) CALL iom_swap( TRIM(crxios_context) ) 
    788             CALL iom_get( numror, jpdom_auto, 'sshn'   , ssh(:,:,Kmm), ldxios = lroxios    ) 
     787            IF( lrxios ) CALL iom_swap( cr_ocerst_cxt ) 
     788            CALL iom_get( numror, jpdom_auto, 'sshn'   , ssh(:,:,Kmm), ldxios = lrxios    ) 
    789789            ! 
    790790            id1 = iom_varid( numror, 'e3t_b', ldstop = .FALSE. ) 
    … …  
    799799            ! 
    800800            IF( MIN( id1, id2 ) > 0 ) THEN       ! all required arrays exist 
    801                CALL iom_get( numror, jpdom_auto, 'e3t_b', e3t(:,:,:,Kbb), ldxios = lroxios ) 
    802                CALL iom_get( numror, jpdom_auto, 'e3t_n', e3t(:,:,:,Kmm), ldxios = lroxios ) 
     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 ) 
    803803               ! needed to restart if land processor not computed  
    804804               IF(lwp) write(numout,*) 'dom_vvl_rst : e3t(:,:,:,Kbb) and e3t(:,:,:,Kmm) found in restart files' 
    … …  
    814814               IF(lwp) write(numout,*) 'e3t_n set equal to e3t_b.' 
    815815               IF(lwp) write(numout,*) 'l_1st_euler is forced to true' 
    816                CALL iom_get( numror, jpdom_auto, 'e3t_b', e3t(:,:,:,Kbb), ldxios = lroxios ) 
     816               CALL iom_get( numror, jpdom_auto, 'e3t_b', e3t(:,:,:,Kbb), ldxios = lrxios ) 
    817817               e3t(:,:,:,Kmm) = e3t(:,:,:,Kbb) 
    818818               l_1st_euler = .true. 
    … …  
    821821               IF(lwp) write(numout,*) 'e3t_b set equal to e3t_n.' 
    822822               IF(lwp) write(numout,*) 'l_1st_euler is forced to true' 
    823                CALL iom_get( numror, jpdom_auto, 'e3t_n', e3t(:,:,:,Kmm), ldxios = lroxios ) 
     823               CALL iom_get( numror, jpdom_auto, 'e3t_n', e3t(:,:,:,Kmm), ldxios = lrxios ) 
    824824               e3t(:,:,:,Kbb) = e3t(:,:,:,Kmm) 
    825825               l_1st_euler = .true. 
    … …  
    846846               !                          ! ----------------------- ! 
    847847               IF( MIN( id3, id4 ) > 0 ) THEN  ! all required arrays exist 
    848                   CALL iom_get( numror, jpdom_auto, 'tilde_e3t_b', tilde_e3t_b(:,:,:), ldxios = lroxios ) 
    849                   CALL iom_get( numror, jpdom_auto, 'tilde_e3t_n', tilde_e3t_n(:,:,:), ldxios = lroxios ) 
     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 ) 
    850850               ELSE                            ! one at least array is missing 
    851851                  tilde_e3t_b(:,:,:) = 0.0_wp 
    … …  
    856856                  !                       ! ------------ ! 
    857857                  IF( id5 > 0 ) THEN  ! required array exists 
    858                      CALL iom_get( numror, jpdom_auto, 'hdiv_lf', hdiv_lf(:,:,:), ldxios = lroxios ) 
     858                     CALL iom_get( numror, jpdom_auto, 'hdiv_lf', hdiv_lf(:,:,:), ldxios = lrxios ) 
    859859                  ELSE                ! array is missing 
    860860                     hdiv_lf(:,:,:) = 0.0_wp 
    … …  
    862862               ENDIF 
    863863            ENDIF 
    864             IF( lroxios ) CALL iom_swap( TRIM(cxios_context) ) 
     864            IF( lrxios ) CALL iom_swap( cxios_context ) 
    865865            ! 
    866866         ELSE                                   !* Initialize at "rest" 
    … …  
    931931         !                                   ! =================== 
    932932         IF(lwp) WRITE(numout,*) '---- dom_vvl_rst ----' 
    933          IF( lwxios ) CALL iom_swap(      cwxios_context          ) 
     933         IF( lwxios ) CALL iom_swap(      cw_ocerst_cxt          ) 
    934934         !                                           ! --------- ! 
    935935         !                                           ! all cases ! 
Note: See TracChangeset for help on using the changeset viewer.