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 8668 for branches/2017/dev_r8600_xios_read/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90 – NEMO

Ignore:
Timestamp:
2017-10-30T12:44:29+01:00 (6 years ago)
Author:
andmirek
Message:

#1953 change variable names to follow NEMO coding convention

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r8600_xios_read/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90

    r8612 r8668  
    202202         IF(.NOT.lxios_set) lxios_read = lxios_read.AND.lxios_sini 
    203203         IF( lxios_read) THEN 
    204            rxios_context = 'nemo_rst' 
     204           crxios_context = 'nemo_rst' 
    205205         if(.NOT.lxios_set) then 
    206206             IF(lwp) WRITE(numout,*) 'Enable restart reading by XIOS' 
    207              CALL iom_init( rxios_context ) 
     207             CALL iom_init( crxios_context ) 
    208208             lxios_set = .TRUE. 
    209209         endif 
    210210         ENDIF 
    211211         IF( TRIM(Agrif_CFixed()) /= '0' .AND. lxios_read) THEN 
    212             CALL iom_init( rxios_context ) 
     212            CALL iom_init( crxios_context ) 
    213213            IF(lwp) WRITE(numout,*) 'Enable restart reading by XIOS for AGRIF' 
    214214            lxios_set = .TRUE. 
     
    237237      ! Check dynamics and tracer time-step consistency and force Euler restart if changed 
    238238      IF( iom_varid( numror, 'rdt', ldstop = .FALSE. ) > 0 )   THEN 
    239          CALL iom_get( numror, 'rdt', zrdt, lrxios = lxios_read ) 
     239         CALL iom_get( numror, 'rdt', zrdt, ldxios = lxios_read ) 
    240240         IF( zrdt /= rdt )   neuler = 0 
    241241      ENDIF 
    242242 
    243243      ! Diurnal DSST  
    244       IF( ln_diurnal ) CALL iom_get( numror, jpdom_autoglo, 'Dsst' , x_dsst, lrxios = lxios_read )  
     244      IF( ln_diurnal ) CALL iom_get( numror, jpdom_autoglo, 'Dsst' , x_dsst, ldxios = lxios_read )  
    245245      IF ( ln_diurnal_only ) THEN  
    246246         IF(lwp) WRITE( numout, * ) & 
    247247         &   "rst_read:- ln_diurnal_only set, setting rhop=rau0"  
    248248         rhop = rau0 
    249          CALL iom_get( numror, jpdom_autoglo, 'tn'     , tsn(:,:,1,jp_tem), lrxios = lxios_read )  
     249         CALL iom_get( numror, jpdom_autoglo, 'tn'     , tsn(:,:,1,jp_tem), ldxios = lxios_read )  
    250250         RETURN  
    251251      ENDIF   
    252252       
    253253      IF( iom_varid( numror, 'ub', ldstop = .FALSE. ) > 0 ) THEN 
    254          CALL iom_get( numror, jpdom_autoglo, 'ub'     , ub, lrxios = lxios_read                )   ! before fields 
    255          CALL iom_get( numror, jpdom_autoglo, 'vb'     , vb, lrxios = lxios_read                ) 
    256          CALL iom_get( numror, jpdom_autoglo, 'tb'     , tsb(:,:,:,jp_tem), lrxios = lxios_read ) 
    257          CALL iom_get( numror, jpdom_autoglo, 'sb'     , tsb(:,:,:,jp_sal), lrxios = lxios_read ) 
    258          CALL iom_get( numror, jpdom_autoglo, 'sshb'   , sshb, lrxios = lxios_read              ) 
     254         CALL iom_get( numror, jpdom_autoglo, 'ub'     , ub, ldxios = lxios_read                )   ! before fields 
     255         CALL iom_get( numror, jpdom_autoglo, 'vb'     , vb, ldxios = lxios_read                ) 
     256         CALL iom_get( numror, jpdom_autoglo, 'tb'     , tsb(:,:,:,jp_tem), ldxios = lxios_read ) 
     257         CALL iom_get( numror, jpdom_autoglo, 'sb'     , tsb(:,:,:,jp_sal), ldxios = lxios_read ) 
     258         CALL iom_get( numror, jpdom_autoglo, 'sshb'   , sshb, ldxios = lxios_read              ) 
    259259      ELSE 
    260260         neuler = 0 
    261261      ENDIF 
    262262      ! 
    263       CALL iom_get( numror, jpdom_autoglo, 'un'     , un, lrxios = lxios_read )   ! now    fields 
    264       CALL iom_get( numror, jpdom_autoglo, 'vn'     , vn, lrxios = lxios_read ) 
    265       CALL iom_get( numror, jpdom_autoglo, 'tn'     , tsn(:,:,:,jp_tem), lrxios = lxios_read ) 
    266       CALL iom_get( numror, jpdom_autoglo, 'sn'     , tsn(:,:,:,jp_sal), lrxios = lxios_read ) 
    267       CALL iom_get( numror, jpdom_autoglo, 'sshn'   , sshn, lrxios = lxios_read ) 
     263      CALL iom_get( numror, jpdom_autoglo, 'un'     , un, ldxios = lxios_read )   ! now    fields 
     264      CALL iom_get( numror, jpdom_autoglo, 'vn'     , vn, ldxios = lxios_read ) 
     265      CALL iom_get( numror, jpdom_autoglo, 'tn'     , tsn(:,:,:,jp_tem), ldxios = lxios_read ) 
     266      CALL iom_get( numror, jpdom_autoglo, 'sn'     , tsn(:,:,:,jp_sal), ldxios = lxios_read ) 
     267      CALL iom_get( numror, jpdom_autoglo, 'sshn'   , sshn, ldxios = lxios_read ) 
    268268      IF( iom_varid( numror, 'rhop', ldstop = .FALSE. ) > 0 ) THEN 
    269          CALL iom_get( numror, jpdom_autoglo, 'rhop'   , rhop, lrxios = lxios_read )   ! now    potential density 
     269         CALL iom_get( numror, jpdom_autoglo, 'rhop'   , rhop, ldxios = lxios_read )   ! now    potential density 
    270270      ELSE 
    271271         CALL eos( tsn, rhd, rhop, gdept_n(:,:,:) )    
Note: See TracChangeset for help on using the changeset viewer.