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/iom.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/iom.F90

    r8616 r8668  
    106106      CHARACTER(len=10) :: clname 
    107107      INTEGER           :: ji, jkmin 
    108       LOGICAL :: lrst_context              ! is context related to restart 
     108      LOGICAL :: llrst_context              ! is context related to restart 
    109109      ! 
    110110      REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: zt_bnds, zw_bnds 
     
    117117      CALL xios_context_initialize(TRIM(clname), mpi_comm_opa) 
    118118      CALL iom_swap( cdname ) 
    119       lrst_context =  (TRIM(cdname) == TRIM(rxios_context)) 
     119      llrst_context =  (TRIM(cdname) == TRIM(crxios_context)) 
    120120 
    121121      ! Calendar type is now defined in xml file  
     
    130130 
    131131      ! horizontal grid definition 
    132       IF(.NOT.lrst_context) CALL set_scalar 
     132      IF(.NOT.llrst_context) CALL set_scalar 
    133133 
    134134      IF( TRIM(cdname) == TRIM(cxios_context) ) THEN   
     
    162162         CALL dom_grid_glo   ! Return to parent grid domain 
    163163         ! 
    164          IF( ln_cfmeta .AND. TRIM(cdname) .NE. TRIM(rxios_context)) THEN   ! Add additional grid metadata 
     164         IF( ln_cfmeta .AND. TRIM(cdname) .NE. TRIM(crxios_context)) THEN   ! Add additional grid metadata 
    165165            CALL iom_set_domain_attr("grid_T", area = e1e2t_crs(nldi:nlei, nldj:nlej)) 
    166166            CALL iom_set_domain_attr("grid_U", area = e1u_crs(nldi:nlei, nldj:nlej) * e2u_crs(nldi:nlei, nldj:nlej)) 
     
    175175 
    176176      ! vertical grid definition 
    177       IF(.NOT.lrst_context) THEN 
     177      IF(.NOT.llrst_context) THEN 
    178178          CALL iom_set_axis_attr( "deptht", paxis = gdept_1d ) 
    179179          CALL iom_set_axis_attr( "depthu", paxis = gdept_1d ) 
     
    206206      ENDIF    
    207207      ! automatic definitions of some of the xml attributs 
    208       IF( lrst_context ) THEN 
     208      IF( llrst_context ) THEN 
    209209!set names of the fields in restart file IF using XIOS to read/write data 
    210210       CALL set_rst_context() 
     
    724724   !!                   INTERFACE iom_get 
    725725   !!---------------------------------------------------------------------- 
    726    SUBROUTINE iom_g0d( kiomid, cdvar, pvar, ktime, lrxios ) 
     726   SUBROUTINE iom_g0d( kiomid, cdvar, pvar, ktime, ldxios ) 
    727727      INTEGER         , INTENT(in   )                 ::   kiomid    ! Identifier of the file 
    728728      CHARACTER(len=*), INTENT(in   )                 ::   cdvar     ! Name of the variable 
    729729      REAL(wp)        , INTENT(  out)                 ::   pvar      ! read field 
    730730      INTEGER         , INTENT(in   ),     OPTIONAL   ::   ktime     ! record number 
    731       LOGICAL         , INTENT(in   ),     OPTIONAL   ::   lrxios    ! use xios to read restart 
     731      LOGICAL         , INTENT(in   ),     OPTIONAL   ::   ldxios    ! use xios to read restart 
    732732      ! 
    733733      INTEGER                                         ::   idvar     ! variable id 
     
    737737      CHARACTER(LEN=100)                              ::   clname    ! file name 
    738738      CHARACTER(LEN=1)                                ::   cldmspc   ! 
    739       LOGICAL                                         ::   lxios 
    740       ! 
    741       lxios = .FALSE. 
    742       IF( PRESENT(lrxios) ) lxios = lrxios 
    743  
    744       IF(.NOT.lxios) THEN  ! read data using default library 
     739      LOGICAL                                         ::   llxios 
     740      ! 
     741      llxios = .FALSE. 
     742      IF( PRESENT(ldxios) ) llxios = ldxios 
     743 
     744      IF(.NOT.llxios) THEN  ! read data using default library 
    745745         itime = 1 
    746746         IF( PRESENT(ktime) ) itime = ktime 
     
    767767      ELSE 
    768768         IF(lwp) WRITE(numout,*) 'XIOS RST READ (0D): ', trim(cdvar) 
    769          CALL iom_swap( TRIM(rxios_context) ) 
     769         CALL iom_swap( TRIM(crxios_context) ) 
    770770         CALL xios_recv_field( trim(cdvar), pvar) 
    771771         CALL iom_swap( TRIM(cxios_context) ) 
     
    773773   END SUBROUTINE iom_g0d 
    774774 
    775    SUBROUTINE iom_g1d( kiomid, kdom, cdvar, pvar, ktime, kstart, kcount, lrxios ) 
     775   SUBROUTINE iom_g1d( kiomid, kdom, cdvar, pvar, ktime, kstart, kcount, ldxios ) 
    776776      INTEGER         , INTENT(in   )                         ::   kiomid    ! Identifier of the file 
    777777      INTEGER         , INTENT(in   )                         ::   kdom      ! Type of domain to be read 
     
    781781      INTEGER         , INTENT(in   ), DIMENSION(1), OPTIONAL ::   kstart    ! start axis position of the reading  
    782782      INTEGER         , INTENT(in   ), DIMENSION(1), OPTIONAL ::   kcount    ! number of points in each axis 
    783       LOGICAL         , INTENT(in   ),               OPTIONAL ::   lrxios    ! read data using XIOS 
     783      LOGICAL         , INTENT(in   ),               OPTIONAL ::   ldxios    ! read data using XIOS 
    784784      ! 
    785785      IF( kiomid > 0 ) THEN 
    786786         IF( iom_file(kiomid)%nfid > 0 ) CALL iom_get_123d( kiomid, kdom       , cdvar        , pv_r1d=pvar,   & 
    787787              &                                                     ktime=ktime, kstart=kstart, kcount=kcount, & 
    788               &                                                     lrxios=lrxios ) 
     788              &                                                     ldxios=ldxios ) 
    789789      ENDIF 
    790790   END SUBROUTINE iom_g1d 
    791791 
    792    SUBROUTINE iom_g2d( kiomid, kdom, cdvar, pvar, ktime, kstart, kcount, lrowattr, lrxios) 
     792   SUBROUTINE iom_g2d( kiomid, kdom, cdvar, pvar, ktime, kstart, kcount, lrowattr, ldxios) 
    793793      INTEGER         , INTENT(in   )                           ::   kiomid    ! Identifier of the file 
    794794      INTEGER         , INTENT(in   )                           ::   kdom      ! Type of domain to be read 
     
    802802                                                                               ! called open_ocean_jstart to set the start 
    803803                                                                               ! value for the 2nd dimension (netcdf only) 
    804       LOGICAL         , INTENT(in   ),                 OPTIONAL ::   lrxios    ! read data using XIOS 
     804      LOGICAL         , INTENT(in   ),                 OPTIONAL ::   ldxios    ! read data using XIOS 
    805805      ! 
    806806      IF( kiomid > 0 ) THEN 
    807807         IF( iom_file(kiomid)%nfid > 0 ) CALL iom_get_123d( kiomid, kdom       , cdvar        , pv_r2d=pvar,   & 
    808808              &                                                     ktime=ktime, kstart=kstart, kcount=kcount, & 
    809               &                                                     lrowattr=lrowattr,  lrxios=lrxios) 
     809              &                                                     lrowattr=lrowattr,  ldxios=ldxios) 
    810810      ENDIF 
    811811   END SUBROUTINE iom_g2d 
    812812 
    813    SUBROUTINE iom_g3d( kiomid, kdom, cdvar, pvar, ktime, kstart, kcount, lrowattr, lrxios ) 
     813   SUBROUTINE iom_g3d( kiomid, kdom, cdvar, pvar, ktime, kstart, kcount, lrowattr, ldxios ) 
    814814      INTEGER         , INTENT(in   )                             ::   kiomid    ! Identifier of the file 
    815815      INTEGER         , INTENT(in   )                             ::   kdom      ! Type of domain to be read 
     
    823823                                                                                 ! called open_ocean_jstart to set the start 
    824824                                                                                 ! value for the 2nd dimension (netcdf only) 
    825       LOGICAL         , INTENT(in   ),                   OPTIONAL ::   lrxios    ! read data using XIOS 
     825      LOGICAL         , INTENT(in   ),                   OPTIONAL ::   ldxios    ! read data using XIOS 
    826826      ! 
    827827      IF( kiomid > 0 ) THEN 
    828828         IF( iom_file(kiomid)%nfid > 0 ) CALL iom_get_123d( kiomid, kdom       , cdvar        , pv_r3d=pvar,   & 
    829829              &                                                     ktime=ktime, kstart=kstart, kcount=kcount, & 
    830               &                                                     lrowattr=lrowattr, lrxios=lrxios ) 
     830              &                                                     lrowattr=lrowattr, ldxios=ldxios ) 
    831831      ENDIF 
    832832   END SUBROUTINE iom_g3d 
     
    836836         &                  pv_r1d, pv_r2d, pv_r3d,   & 
    837837         &                  ktime , kstart, kcount,   & 
    838          &                  lrowattr, lrxios        ) 
     838         &                  lrowattr, ldxios        ) 
    839839      !!----------------------------------------------------------------------- 
    840840      !!                  ***  ROUTINE  iom_get_123d  *** 
     
    857857                                                                           ! called open_ocean_jstart to set the start 
    858858                                                                           ! value for the 2nd dimension (netcdf only) 
    859       LOGICAL                    , INTENT(in   ), OPTIONAL ::   lrxios     ! use XIOS to read restart 
    860       ! 
    861       LOGICAL                        ::   lxios       ! local definition for XIOS read 
     859      LOGICAL                    , INTENT(in   ), OPTIONAL ::   ldxios     ! use XIOS to read restart 
     860      ! 
     861      LOGICAL                        ::   llxios       ! local definition for XIOS read 
    862862      LOGICAL                        ::   llnoov      ! local definition to read overlap 
    863863      LOGICAL                        ::   luse_jattr  ! local definition to read open_ocean_jstart file attribute 
     
    887887      ! 
    888888      REAL(wp)                       :: gma, gmi 
    889       lxios = .FALSE. 
    890       if(PRESENT(lrxios)) lxios = lrxios 
     889      llxios = .FALSE. 
     890      if(PRESENT(ldxios)) llxios = ldxios 
    891891      idvar = iom_varid( kiomid, cdvar )  
    892892      idom = kdom 
    893893 
    894       IF(.NOT.lxios) THEN 
     894      IF(.NOT.llxios) THEN 
    895895          clname = iom_file(kiomid)%name   !   esier to read 
    896896          clinfo = '          iom_get_123d, file: '//trim(clname)//', var: '//trim(cdvar) 
     
    11231123#if defined key_iomput 
    11241124!would be good to be able to check which context is active and swap only if current is not restart 
    1125           CALL iom_swap( TRIM(rxios_context) )  
     1125          CALL iom_swap( TRIM(crxios_context) )  
    11261126          IF( PRESENT(pv_r3d) ) THEN 
    11271127             if(lwp) write(numout,*) 'XIOS RST READ (3D): ',trim(cdvar) 
     
    16261626 
    16271627 
    1628    SUBROUTINE set_grid( cdgrd, plon, plat, lxios ) 
     1628   SUBROUTINE set_grid( cdgrd, plon, plat, ldxios ) 
    16291629      !!---------------------------------------------------------------------- 
    16301630      !!                     ***  ROUTINE set_grid  *** 
     
    16391639      REAL(wp), DIMENSION(jpi,jpj,jpk) ::   zmask 
    16401640      INTEGER  :: ni,nj 
    1641       LOGICAL, INTENT(IN) :: lxios 
     1641      LOGICAL, INTENT(IN) :: ldxios 
    16421642       
    16431643      ni=nlei-nldi+1 ; nj=nlej-nldj+1 
     
    16481648         &                                     latvalue = RESHAPE(plat(nldi:nlei, nldj:nlej),(/ ni*nj /)))   
    16491649 
    1650       IF ( ln_mskland.AND.(.NOT.lxios) ) THEN 
     1650      IF ( ln_mskland.AND.(.NOT.ldxios) ) THEN 
    16511651         ! mask land points, keep values on coast line -> specific mask for U, V and W points 
    16521652         SELECT CASE ( cdgrd ) 
Note: See TracChangeset for help on using the changeset viewer.