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 8793 for branches/2017/dev_r8600_xios_read_write/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90 – NEMO

Ignore:
Timestamp:
2017-11-23T13:02:23+01:00 (6 years ago)
Author:
andmirek
Message:

#1953 and #1962 change lxios_read to lrxios to be consistent with write branch

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2017/dev_r8600_xios_read_write/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90

    r8770 r8793  
    5858   USE agrif_opa_update 
    5959#endif 
    60    USE iom_def, ONLY : lxios_read 
     60   USE iom_def, ONLY : lrxios 
    6161 
    6262   IMPLICIT NONE 
    … …  
    856856           ! 
    857857           IF( id1 > 0 ) THEN                       ! 'en' exists 
    858               CALL iom_get( numror, jpdom_autoglo, 'en', en, ldxios = lxios_read ) 
     858              CALL iom_get( numror, jpdom_autoglo, 'en', en, ldxios = lrxios ) 
    859859              IF( MIN( id2, id3, id4, id5, id6 ) > 0 ) THEN        ! all required arrays exist 
    860                  CALL iom_get( numror, jpdom_autoglo, 'avt'  , avt, ldxios = lxios_read   ) 
    861                  CALL iom_get( numror, jpdom_autoglo, 'avm'  , avm, ldxios = lxios_read   ) 
    862                  CALL iom_get( numror, jpdom_autoglo, 'avmu' , avmu, ldxios = lxios_read  ) 
    863                  CALL iom_get( numror, jpdom_autoglo, 'avmv' , avmv, ldxios = lxios_read  ) 
    864                  CALL iom_get( numror, jpdom_autoglo, 'dissl', dissl, ldxios = lxios_read ) 
     860                 CALL iom_get( numror, jpdom_autoglo, 'avt'  , avt, ldxios = lrxios   ) 
     861                 CALL iom_get( numror, jpdom_autoglo, 'avm'  , avm, ldxios = lrxios   ) 
     862                 CALL iom_get( numror, jpdom_autoglo, 'avmu' , avmu, ldxios = lrxios  ) 
     863                 CALL iom_get( numror, jpdom_autoglo, 'avmv' , avmv, ldxios = lrxios  ) 
     864                 CALL iom_get( numror, jpdom_autoglo, 'dissl', dissl, ldxios = lrxios ) 
    865865              ELSE                                                 ! one at least array is missing 
    866866                 CALL tke_avn                                          ! compute avt, avm, avmu, avmv and dissl (approximation) 
Note: See TracChangeset for help on using the changeset viewer.