- Timestamp:
- 2017-11-23T16:48:37+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r8600_xios_read_write_v2/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90
r7813 r8800 57 57 USE agrif_opa_update 58 58 #endif 59 USE iom_def, ONLY : lxios_read 59 60 60 61 IMPLICIT NONE … … 845 846 ! 846 847 IF( id1 > 0 ) THEN ! 'en' exists 847 CALL iom_get( numror, jpdom_autoglo, 'en', en )848 CALL iom_get( numror, jpdom_autoglo, 'en', en, ldxios = lxios_read ) 848 849 IF( MIN( id2, id3, id4, id5, id6 ) > 0 ) THEN ! all required arrays exist 849 CALL iom_get( numror, jpdom_autoglo, 'avt' , avt )850 CALL iom_get( numror, jpdom_autoglo, 'avm' , avm )851 CALL iom_get( numror, jpdom_autoglo, 'avmu' , avmu )852 CALL iom_get( numror, jpdom_autoglo, 'avmv' , avmv )853 CALL iom_get( numror, jpdom_autoglo, 'dissl', dissl )850 CALL iom_get( numror, jpdom_autoglo, 'avt' , avt, ldxios = lxios_read ) 851 CALL iom_get( numror, jpdom_autoglo, 'avm' , avm, ldxios = lxios_read ) 852 CALL iom_get( numror, jpdom_autoglo, 'avmu' , avmu, ldxios = lxios_read ) 853 CALL iom_get( numror, jpdom_autoglo, 'avmv' , avmv, ldxios = lxios_read ) 854 CALL iom_get( numror, jpdom_autoglo, 'dissl', dissl, ldxios = lxios_read ) 854 855 ELSE ! one at least array is missing 855 856 CALL tke_avn ! compute avt, avm, avmu, avmv and dissl (approximation)
Note: See TracChangeset
for help on using the changeset viewer.