- Timestamp:
- 2020-05-26T12:05:09+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_12905_xios_restart/src/OCE/ZDF/zdftke.F90
r12950 r12969 659 659 ! ! --------------- 660 660 IF( ln_rstart ) THEN !* Read the restart file 661 IF( lr xios ) CALL iom_swap( TRIM(crxios_context) )661 IF( lroxios ) CALL iom_swap( TRIM(crxios_context) ) 662 662 id1 = iom_varid( numror, 'en' , ldstop = .FALSE. ) 663 663 id2 = iom_varid( numror, 'avt_k', ldstop = .FALSE. ) … … 666 666 ! 667 667 IF( MIN( id1, id2, id3, id4 ) > 0 ) THEN ! fields exist 668 CALL iom_get( numror, jpdom_autoglo, 'en' , en , ldxios = lr xios )669 CALL iom_get( numror, jpdom_autoglo, 'avt_k', avt_k, ldxios = lr xios )670 CALL iom_get( numror, jpdom_autoglo, 'avm_k', avm_k, ldxios = lr xios )671 CALL iom_get( numror, jpdom_autoglo, 'dissl', dissl, ldxios = lr xios )668 CALL iom_get( numror, jpdom_autoglo, 'en' , en , ldxios = lroxios ) 669 CALL iom_get( numror, jpdom_autoglo, 'avt_k', avt_k, ldxios = lroxios ) 670 CALL iom_get( numror, jpdom_autoglo, 'avm_k', avm_k, ldxios = lroxios ) 671 CALL iom_get( numror, jpdom_autoglo, 'dissl', dissl, ldxios = lroxios ) 672 672 ELSE ! start TKE from rest 673 673 IF(lwp) WRITE(numout,*) … … 677 677 ! avt_k, avm_k already set to the background value in zdf_phy_init 678 678 ENDIF 679 IF( lr xios ) CALL iom_swap( TRIM(cxios_context) )679 IF( lroxios ) CALL iom_swap( TRIM(cxios_context) ) 680 680 ELSE !* Start from rest 681 681 IF(lwp) WRITE(numout,*)
Note: See TracChangeset
for help on using the changeset viewer.