- Timestamp:
- 2017-12-12T11:41:19+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_METO_2017/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90
r8924 r8987 814 814 CALL tke_rst( nit000, 'READ' ) !* read or initialize all required files 815 815 ! 816 IF( lwxios ) THEN 817 CALL iom_set_rstw_var_active('en') 818 CALL iom_set_rstw_var_active('avt') 819 CALL iom_set_rstw_var_active('avm') 820 CALL iom_set_rstw_var_active('avmu') 821 CALL iom_set_rstw_var_active('avmv') 822 CALL iom_set_rstw_var_active('dissl') 823 ENDIF 824 816 825 END SUBROUTINE zdf_tke_init 817 826 … … 845 854 ! 846 855 IF( id1 > 0 ) THEN ! 'en' exists 847 CALL iom_get( numror, jpdom_autoglo, 'en', en )856 CALL iom_get( numror, jpdom_autoglo, 'en', en, ldxios = lrxios ) 848 857 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 )858 CALL iom_get( numror, jpdom_autoglo, 'avt' , avt, ldxios = lrxios ) 859 CALL iom_get( numror, jpdom_autoglo, 'avm' , avm, ldxios = lrxios ) 860 CALL iom_get( numror, jpdom_autoglo, 'avmu' , avmu, ldxios = lrxios ) 861 CALL iom_get( numror, jpdom_autoglo, 'avmv' , avmv, ldxios = lrxios ) 862 CALL iom_get( numror, jpdom_autoglo, 'dissl', dissl, ldxios = lrxios ) 854 863 ELSE ! one at least array is missing 855 864 CALL tke_avn ! compute avt, avm, avmu, avmv and dissl (approximation) … … 880 889 ! ! ------------------- 881 890 IF(lwp) WRITE(numout,*) '---- tke-rst ----' 882 CALL iom_rstput( kt, nitrst, numrow, 'en' , en ) 883 CALL iom_rstput( kt, nitrst, numrow, 'avt' , avt_k ) 884 CALL iom_rstput( kt, nitrst, numrow, 'avm' , avm_k ) 885 CALL iom_rstput( kt, nitrst, numrow, 'avmu' , avmu_k ) 886 CALL iom_rstput( kt, nitrst, numrow, 'avmv' , avmv_k ) 887 CALL iom_rstput( kt, nitrst, numrow, 'dissl', dissl ) 891 IF( lwxios ) CALL iom_swap( cwxios_context ) 892 CALL iom_rstput( kt, nitrst, numrow, 'en' , en , ldxios = lwxios ) 893 CALL iom_rstput( kt, nitrst, numrow, 'avt' , avt_k , ldxios = lwxios ) 894 CALL iom_rstput( kt, nitrst, numrow, 'avm' , avm_k , ldxios = lwxios ) 895 CALL iom_rstput( kt, nitrst, numrow, 'avmu' , avmu_k, ldxios = lwxios ) 896 CALL iom_rstput( kt, nitrst, numrow, 'avmv' , avmv_k, ldxios = lwxios ) 897 CALL iom_rstput( kt, nitrst, numrow, 'dissl', dissl , ldxios = lwxios ) 898 IF( lwxios ) CALL iom_swap( cxios_context ) 888 899 ! 889 900 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.