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 7924 for branches/UKMO/dev_r5518_GO6_package_XIOS_read/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90 – NEMO

Ignore:
Timestamp:
2017-04-18T15:42:46+02:00 (7 years ago)
Author:
andmirek
Message:

first commit with XIOS restart read functionality

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/UKMO/dev_r5518_GO6_package_XIOS_read/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90

    r6498 r7924  
    5757   USE agrif_opa_update 
    5858#endif 
     59   USE iom_def, ONLY : lxios_read 
    5960 
    6061 
    … …  
    935936           ! 
    936937           IF( id1 > 0 ) THEN                       ! 'en' exists 
    937               CALL iom_get( numror, jpdom_autoglo, 'en', en ) 
     938              CALL iom_get( numror, jpdom_autoglo, 'en', en, lrxios = lxios_read ) 
    938939              IF( MIN( id2, id3, id4, id5, id6 ) > 0 ) THEN        ! all required arrays exist 
    939                  CALL iom_get( numror, jpdom_autoglo, 'avt'  , avt   ) 
    940                  CALL iom_get( numror, jpdom_autoglo, 'avm'  , avm   ) 
    941                  CALL iom_get( numror, jpdom_autoglo, 'avmu' , avmu  ) 
    942                  CALL iom_get( numror, jpdom_autoglo, 'avmv' , avmv  ) 
    943                  CALL iom_get( numror, jpdom_autoglo, 'dissl', dissl ) 
     940                 CALL iom_get( numror, jpdom_autoglo, 'avt'  , avt, lrxios = lxios_read   ) 
     941                 CALL iom_get( numror, jpdom_autoglo, 'avm'  , avm, lrxios = lxios_read   ) 
     942                 CALL iom_get( numror, jpdom_autoglo, 'avmu' , avmu, lrxios = lxios_read  ) 
     943                 CALL iom_get( numror, jpdom_autoglo, 'avmv' , avmv, lrxios = lxios_read  ) 
     944                 CALL iom_get( numror, jpdom_autoglo, 'dissl', dissl, lrxios = lxios_read ) 
    944945              ELSE                                                 ! one at least array is missing 
    945946                 CALL tke_avn                                          ! compute avt, avm, avmu, avmv and dissl (approximation) 
Note: See TracChangeset for help on using the changeset viewer.